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Input to MPREAL . 


Altered by MOVA . 
Input to MOVBLK . 
Altered by MOVELK 
Input to MOVD' . . 
Altered by MOVD . 
Input to MOVDIC . 
Altered by MOVDIC 
Input to MCVV.. 
Altered by MCVV. 


Altered by MPREAL 
Altered by MSTIME 
Input to MULT .. 
Altered by MULT . 
Input to MULTC .. 
Altered by MULTC . 


a 6 6 e 6 e 8 i) ® e 6 a 9 a e e 
e e e ¢@ & ® 6 s a o @ eo 68 & » @ 


t 


age 


® Oe «© © © © © © © © 8 8 © 8 $ 8 F 
*wQeeeoe 6 8 @ #@ @ © * @€ @ @ # & 


Input to OUTPUT .. . . 
Input to PLUGTP .. -« e 
Altered by PLUGTB for ERROR, 
Altered by PLUGTB for CONTIN 
Input to POP 2. « « « « « @ e« 
Altered by POP . . 
Input to PSTACK . 
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Altered by PUTLG 
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Altered by PUTSPC 
Input to PUTVC . 
Altered by PUTVC 
Input to RCALL . 
Altered by RCALL 


Input to RCOMP . 

Input to REALST 

Altered by KEALST 
Input to REMSP .. 
Altered by KEMSP . 
Input to RESETF . 
Altered by RESETF 
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Input to RLINT .. 
Altered by RLINT . 
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Altered by RPLACE 
Input to RRTURN . 
Altered by RRTURN 
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Altered by RSETFI 
Input to SBREAL . 
Altered by SBREAL 
Input to SELBRA 
Altered by SETAC 
Input to SETAV . 
Altered by SETAV 
Input to SETF . 
Altered by SETF 
Input to SETFI . 
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Input to SETSIZ 
Altered by SETSIZ 
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Altered by SETSP 
Input to SETVA . 

Altered by SETVA 
Altered by SETVC 
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Altered by SHORTN 
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Altered by SPCINT 
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Altered by SPOP . 
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Input to SUBTKT .. 
Altered by SUPTRT . 
Input to SUM... . 
Altered by SUM... 
Input to TESTF ... 
Input to TESTFI .. 
Input to TOP... . 
Altered by TOP .. 
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Input to UNLOAD . 
Input to VARID.. 
Altered by VARID . 
Input to VCMPIC . 
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4A, Introduction 


The SNOBOL4 programming language [1] is implemented in macro-assembly 
language [2,3]. This macro language is largely machine-independent and is 


designed so that it can be implemented on a variety of computers. Thus, an 


implementation of the SNOBOL4 programming language can be obtained by implement- 
ing the much simpler macro language. By implementing the macro language, and 
using the SNOBOL4 implementation already written in the macro language, one 
obtains a version of SNOBOL4 which is largely source-language compatible with 
other versions implemented in the same way. Nearly all the logic of the SNOBOL4 


langauge resides in the program written in the macro language. Thus if one .. 


implements the macro language properly, the resulting implementation of SNOBOL4 
will be essentially the same as other such implementations. 


This paper describes the macro language and contains information necessary 
for its implementation. Section 2 describes environmental considerations. 
Section 3 describes the representation of data. Syntax tables and character 
graphics are described in Section 4. Section 5 is a list of all macro 
operations with a description of how to implement each. Supplementary informa- 
tion is included in appendices. ) 


2.._Environmental Considerations. 
A. Input and Output 


SNOBOLY is designed to perform all input and output through FORTRAN IV 
routines. A SNOBOL4 object program has much the same I/0 facilities as a 
FORTRAN IV object program. Specification of I/0 is thus largely machine- 
independent both at the source-language level and at the implementation level. 


Files are referred to by their FORTRAN unit reference numbers. In SNOBOL4 
this is handled as an integer which appears in the address fields of descriptors 
which are arguments to the I/O macros. Unit reference numbers are referred to 
symbolically in the SNOBOL4 Vieeaeneeye See the PARMS file in the dicussion of 
the COPY macro. | as | | 


ieeuee performed by STREAD, uses only A conversion, with lengths being 
specified. Output is controlled by formats. Output is performed by OUTPUT and 
STPRNT. . The output done by the SNOBOLS system specifies H-type literals, A, I, 
and, in one case, F conversion. Programmer formats should include only 
literals, X, T, and A’ conversion. Generally speaking, formats occur in 
“undigested” form. Formats used by OUTPUT are assembled by the FORMAT and are 
intended to be simply character strings representing undigested formats. FORMAT 
may, however, assemble any convenient representation of the format. Formats 
used by STPRNT are strings which may be formed during program execution and 


wait” 


hence must be accepted in their undigested form. >) 


There are three other I/O related operations which correspond to their 
FORTRAN counterparts. These are BKSPCE, ENFILE, and REWIND. © 


Where possible, the easiest way to implement SNOBOL4 I/O is to use FORTRAN 
calling sequences for corresponding operations and link the FORTRAN I/O library 
with the SNOBOL4' system. The main difficulties will probably occur in handling 
undigested formats. When questions arise as to what an operation should do, 
FORTRAN conventions should be applied. A programmer. should expect the same 
results from SNOBOL4 as from FORTRAN if, for example, he requests a string 200 
characters from a file containing 80-character records. 


Be. Storage Requirements 


The SNOBOL& system itself is very large and SNOBOL& programs typically 
require large amounts of dynamically allocated storage. The magnitude of these 
requirements may be determined from the implementation for the IBM System/360. 
This system requires a user partition of about 200K bytes (characters) to run 
large programs. A partition of about 170K bytes will permit execution of small 
programs. Of the space required, the SNOBOL4 system and its internal data 
consume about 99K bytes, the FORTRAN I/O routines consume about 14K bytes, and 
the remainder is devoted to dynamically allocated storage. Ailocated storage i 
handled in machine-independent data units (see the next section) calle 
descriptors which occupy 8 bytes eaci on the 360. A production system should be 


“~ able to provide about 10,000 descriptors of dynamically allocated storage.. 


Because of the large amount of space required for dynamic storage, overlay 


techniques for the program itself can only partially reduce the requirements for 


physical storage. 4 


C.. Other Considerations 


SNOBOL4 makes few other demands on its operating system environment. 
Facilities) should be provided so that the SNOBOL4 system can be called and can 
return to the operating system under which it operates. SNOBOL4 will use dump 
facilities to provide core dumps requested by the keyword SABEND if such 


facilities are available. Time and date are used by SNOBOL4, but they are not 
essential. | 


3.__Representation of Data a | | | oe 


Maggahedt 


There are a few basic types of data used in the SNOBOL4 system, and a. 
number of aggregates of the basic types. The basic types of data are 


1. Descriptors. 
2. Specifiers. 
3. Character Strings. 


4. Syntax Table Entries. — 


A Descriptors 


Descriptors are used to represent all rointers, integers, and rea> numbers. 
A descriptor may be thought of as the basic “word"® of SNOBOL4. Descriptors 
consist of three fixed-length fields: n 


1. Address. 


2e Flag. 


3. Value. | | | a | | © | 


The size and position of these fields is determined from data they must 
represent and the way they are used in the various operations. The following 
paragraphs describe some specific requirements. 


i. The Address Field - ~ 


The address field of a descriptor is large enough to address any 
aescriptor, specifier or program instruction with the SNOBOL4 system. (Descrip- 
tors do not have to address individual characters of strings. See Specifiers.) 
The address field must also be large enough to contain any integer or real 
number (including sign) which is to be represented by the SNOBOL4Y system. The | 
address field is the most often used field of a descriptor and is used 
frequently for addressing and integer arithmetic (less frequently for real 
arithmetic) and it is should be positioned so that these operations can be 
performed efficiently. 


ii. The Flag Field 


The flag field is used to represent the state of a number of disjoint 
conditions and is treated as a set of bits which are individually tested, turne 
On and turned off. There are five flag bits currently used in SNOBOL4, butt 
Space is left for several more. ° 


iii. The Value Field 


The value field is used to represent a number of internal quantities which 
are represented as unsigned integers (magnitudes). These quantities include.the 
encoded representation of source-language data types, the length of strings, and 
the size (in address units) of various data aggregates. The value field need. 
not be as big as the address field, but must be large enough to represent the 
size of the PAEIESE: data aggregate which can be formed. 


On the IBM Systen/360, a descriptor is two words (8 bytes). The first word 
is the address field. The second word consists of 1 byte for the flag field and 
3 bytes for the value field. The 3 bytes (24 bits) for the value field permits 
representation of data objects as large as 22-1 bytes. On the other hand, 2 
bytes would limit objects to 216-1 bytes. Since on the 360 there are 8 bytes 
per descriptor, 21%-1 bytes limits objects to 8191 descriptors which is 
restrictive. For machines with fewer address units per descriptor, the value 
field need not be as many bits. 


B. Specifiers 


Specifiers are used to refer to character strings. Almost all operations 
performed on character strings are handled through operations on specifiers. 
All specifiers are the same size and have five fields: 


1. Address. 

2. Flag. 

3. Value. 

4. Offset. 

5. Length. | We kets cos 

Specifiers and descriptors may be stored in the same area indiscriminately, 

and are indistinguishable to many processes in the SNOBOL4 system. As a result, 
specifiers are composed of two descriptors. One descriptor is used in the 
Standard way to provide the address, flag, and value fields. The other 
descriptor is used in a nonstandard way. Its address field is used to represent 


the offset of an individual character from the address given in the specifier's 
address field. The value field of this other descriptor is used for the length. 


C.__ Character Strings 


Character strings are representated in packed format, as many characters 
per descriptor as possible. Storage of character strings in SNOBOL4S dynamic 
storage is always in storage units which are multiples of descriptors. 


ag aE 


D. _Synt able Entries 


Syntax tables are necessarily somewhat machine dependent. Consequently, 
implementation of these tables is done individually for each machine. A 
description of the table requirements is given in the next section. z 


4. Syntax Tables and Character Graphics 


A. Characters 


The SNOBOL4 language permits the use of any character that can be 
represented on a particular machine. There are certain characters that have 
syntactic significance in the source language. The card codes, graphics, and 
internal representations vary from machine to machine. For each - machine, 
representations are chosen for each of the syntactically significant characters. 
Such characters and sets of characters are given descriptive names to avoid 
dependence on a particular machine. In the list that follows, the graphics used 


--on the IBM System/360 are used as a point of reference. 


name language function 360 graphics 
ALPHANUMERIC digit and letter ABCDEFGHIJKLMNOPORSTUVWXYZ 
abcdefghi jkimmnopgyrstuvwxyz 
0123456789 

AT operator . @ 

B).ANK separator and operator (blenx and tab) 

BREAK dot and underscore oe 

CMT comment card *[ et 

CNT continue card +. 

COLON goto designator and : 

dimension separator 

COMMA argument separator ’ 

cTL control card = 

DOLLAR operator $ 

DOT operator “ 

DQUOTE literal delimiter om 

EOS statement terminator ;: 

EQUAL a assignment =< 

FGOSYM failure goto designator F 

KEYSYM operator 6° 

LEFTBR reference and | <[ 

goto delimiter 
LEFT PAREN expression delimiter ( 
LETTER . letter ABCDEFGHIJKLMNOPORSTOUVWXYZ 
: abcdefghi jklmnopqrstuvwxyz 

_ MINUS © operator = 

NOTSYM operator ~ 

NUMBER digit 0123456789 

ORSYM operator j 

PERCENT operator % 

PLUS operator + 

POUND operator . # 

QUESYM operator ? 

RAISE : operator ¢! 

RIGHTBR reference and >] 

goto delimiter 

RIGHTPAREN expression delimiter ) 

SGOSYM success goto designator S 

SLASH operator / 

SQUOTE literal delimiter : 

STAR operator : * 

TERMINATOR expression terminator 3)>,] (includes blank and tab) 


B. Syntax Tables 


The micro-syntax (or "fine structure") of the SNOBOL4' language is analyzed 
using the operation STREAM (q.-v.) which is driven from syntax tables. [Ina 
syntax. table there is an entry for each character at a position corresponding to 
the numerical value of the internal encoding of that character. The syntax 
table entry specifies the action to be taken if that character is encountered. 


The actions are: 


~ 


4. CONTIN, - dndieeetns that the current syntax table is to be used for 
the next character. 


2. GOTO (TABLE) , indicating that TABLE is to be used for the next 
character. : 


3, STOP, indicating that STREAM should terminate with the last charact- 
‘ ex examined to be. included in the accepted string. 


4. STOPSH, indicating the STREAM should terminate with the last 
character examined not to be included in the striny accepted. 


5. ERROR, _jndicating that STREAM should terminate with an error 
indication. . a 


6. PUT(ADDRESS), indicating that ADDRESS is to be placed in the address 
field of the descriptor STYPE. 


The classes of characters for which actions are to be taken are given in 
the FOR designations. CONTIN and GOTO(TABLE) provide information about the next 
table to use, and are typically represented by addresses in syntax table 
entries. STOP, STOPSH, and ERROR are type indicators used to stop the streaming 
process. bpm 


The syntax tables for the IBM 360° implementation are generated from such 
descriptions using a (SNOBOL4) program in which the character classes and the 
order of the internal character codes are parameters. The complete list of 


syntax table descriptions follows: 


BEGIN BIOPTB 

FOR(PLUS) PUT(ADDFN) GOTO (TBLKTB) 
FOR(MINUS) PUT (SUBFN) GOTO (TBLKTB) 
FOR(DOT) PUT(NAMFN) GOTO (TBLKTB) 
FOR(DOLLAR) PUT(DOLFN) GOTO(TBLKTB) 
FOR(STAR) PUT(MPYFN) GOTO(STARTB) 
FOR(SLASH) PUT (DIVFN) GOTO (TBLKTB) 
FOR(AT) PUT(BIATFN) GOTO (TBLKTB) 
FOR(POUND) PUT(BIPDFN) GOTO (TBLKTB) 
FOR(PERCENT) PUT(BIPRFN) GOTO(TBLKTB) 
FOR(RAISE) PUT (EXPFN) GOTO (TBLKTB) 
FOR(ORSYM) PUT(ORFN) GOTO(TBLKTB) 
FOR(KEYSYM) PUT(BIAMFN) GOTO (TBLKTB) 
FOR (NOTSYM): ‘PUT (BINGFN) GOTO(TBLKTB) 


10 


‘ea 


° 


FOR(QUESYM) PUT(BIQSFN) GOTO(TBLKTB) 

ELSE ERROR 

~~ END BIOPTE 

“” |) BEGIN CARDTB 
FOR(CMT) PUT(CMTTYP) STOPSH 
FOR(CTL) PUT(CTLTYP) STOPSH 
FOR(CNT) PUT(CNTTYP) STOPSH 
ELSE PUT(NEWTYP) STOPSH 
END CARDTB | 


, BEGIN DQLITB 
FOR(DQUOTE) STOP 
ELSE CONTIN 
‘END DQLITB 


VBEGIN ELEMTB 

FOR(NUMBER) PUT(ILITYP) GOTO (INTGTB) 
FOR(LETTER) PUT(VARTYP) GOTO (VARTB) 
FOR(SQUOTE) PUT(QLITYP) GOTO(SQLITB) 
FOR(DQUOTE) PUT(QLITYP) GOTO (DQLITB) 
FOR(LEFTPAREN) PUT(NSTTYP) STOP 
ELSE ERROR | 

END ELEMTB 


- BEGIN EOSTB 
FOR(EOS) STOP 
ELSE CONTIN 
END EOSTB 


! © “BEGIN FLITB 
FOR(NUMBER) CONTIN 
FOR (TERMINATOR) STOPSH 
ELSE ERROR 
END FLITE 


_BEGIN FRW&DTB 
FOR(BLANK) CONTIN ys | 
FOR(EQUAL) PUT(EQTYP) STOP =-  --- 
FOR(RIGHTPAREN) PUT(RPTYP) STOP 
FOR(RIGHTBR) PUT(RBTYP) STOP 
FOR(COMMA) PUT(CMATYP) STOP 
FOR({COLON) PUT(CLNTYP) STOP 
FOR(EOS) PUT(EOSTYP) STOP 
ELSE PUT(NBTYP) STOPSH 
END FRWDTB 


“BEGIN GOTFTB 
FOR(LEFTPAREN) PUT(FGOTYP) STOP 
FOR(LEFTBR) PUT(FTOTYP) STOP 
ELSE ERROR 
END GOTFTB 


L’ BEGIN GOTOTB 
FOR(SGOSYM) GOTO (GOTSTB) 
FOR (FGOSYM) GOTO (GOTFTB) 
C FOR(LEFTPAREN) PUT(UGOTYP) STOP 
Ne FOR(LEFTBR) PUT(UTOTYP) STOP 


ELSE ERROR 
END GOTOTB 


/BEGIN GOTSTB - ; ; yam 
FOR(LEFTPAREN) PUT(SGOTYP) STOP | ass 
FOR(LEFTBR) PUT(STOTYP) STOP | 
ELSE ERROR 
END GOTSTB 


’ BEGIN IBLKTB 
FOR(BLANK) GOTO(FRWDTB) 
FOR(EOS) PUT(EOSTYP) STOP 
ELSE ERROR 
END IBLKTB 


’ BEGIN INTGTB 
FOR(NUMBER) CONTIN 
FOR(TERMINATOR) PUT(ILITYP) STOPSH 
FOR(DOT) PUT(FLITYP) GOTO (FLITB) 
ELSE ERROR © 
END INTGTB 


‘BEGIN LBLTB 

FOR (ALPHANUMERIC) GOTO (LBLXTB) 
FOR(BLANK,EOS) STOPSH 

ELSE ERROR 

END LBLTB 


/ BEGIN LBLYTB 
FOR(BLANK,EOS) STOPSH ° | 7 — <3 
ELSE CONTIN , | | | @) 
END LBLXTB 


~ BEGIN NBLKTB 

_ FOR(TERMINATOR) ERROR 
ELSE STOPSH 

END NBLUKTB 


/BEGIN NUMBTB 
FOR({NUMBER) GOTO (NUMCTB) 
FOR(PLUS,MINUS) GOTO (NUMCTB) 
FOR(COMMA) PUT(CMATYP) STOPSH 
FOR(COLON) PUT(DIMTYP) STOPSH 
ELSE ERROR 
END NUMBTB 
/ BEGIN NUMCTB 
FOR(NUMBER) CONTIN 
FOR (COMMA) PUT(CMATYP) STOPSH 
FOR(COLON) PUT(DIMTYP) STOPSH 
ELSE ERROR 
EVID NUMCTB 


vBEGIN SNABTB 
FOR(FGOSYM) STOP Ss 
FOR (SGOSYM) STOPSH Con be wodilaed ; 
ELSE ERROR 

END SNABTB 
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() 


. / BEGIN SOQLITB 


FOR(SQUOTE) STOP 
ELSE CONTIN 
END SQLITB- 


JBEGIN STARTB 

FOR(BLANK) STOP | 

FOR(STAR) PUT (EXPFN) GOTO (TBLKTB) 
ELSE ERROR 

END STARTB 


“BEGIN TBLKTB 


FOR(BLANK) STOP 
ELSE ERROR 
END TBLKTB 


“BEGIN UNOPTB 

-FOR(PLUS) PUT(PLSFN) GOTO (NBLKTB) 
FOR({MINUS) PUT(MNSFN) GOTO (NBLKTB) 
FOR(DOT) PUT(DOTFN) GOTO (NBLKTB) 
FOR(DOLLAR) PUT(INDFN) GOTO (NBLKTB} 
FOR(STAR) PUT(STRFN) GOTO (NBLKTB) 
FOR(SLASH) PUT(SLHFN} GOTO (NBLKTE) 
FOR(PERCENT) PUT(PRFN) GOTO (NBLKTB) 
FOR{AT) PUT(ATFN) GOTO (NBLKTB) 
FOR(POUND) PUT(PDFN) GOTO (NBLKTB) 
FOR(KEYSYM) PUT (KEYFN) GOTO {NBLKTB) 
FOR(NOTSYM) PUT(NEGFN) GOTO (NBLKTB) 
FOR(ORSYM) PUT(BARFN) GOTO (NBLKTB) 
FOR(QUESYM) PUT(QUESFN) GOTO (NBLKTB) 
FOR(RAISE) PUT(AROWFN) GOTO (NBLKTB) 
ELSE ERROR 

END UNOPTB 


“BEGIN VARATB ~ 


FOR(LETTER) GOTO (VARBTB) 
FOR(COMMA) PUT(CMATYP) STOPSH 


-FOR(RIGHTPAREN) PUT(RPTYP) STOPSH - 


ELSE ERROR 
END VARATB 


/BEGIN VARBTB 


FOR (ALPHANUMERIC, BREAK) CONTIN 
FOR(LEFTPAREN) PUT(LPTYP) STOPSH 
FOR(COMMA) PUT (CMATYP) STOPSH 
FOR(RIGHTPAREN) PUT(RPTYP) STOPSH 
ELSE ERROR 

END VARBTB 


“BEGIN VARTB 


FOR(ALPHANUMERIC, BREAK) CONTIN 

FOR (TERMINATOR) PUT(VARTYP) STOPSH 
FOR(LESTPAREN) PUT (FNCTYP) STOP 
FOR (LEFTBR) PUT (ARYTYP) STOP 

ELSE ERROR 


‘= END VARTB 


\ 
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“a, 
< . “anal 
SNABTB is used in pattern matching for ANY(CS), BREAK(CS), NOTANY(CS), and 
SPAN (CS). SNABTB is modified during execution by the macros CLERTB and PLUGTS 
(q.v.)- The other syntax tables are not modified. 
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5. The SNOBOL4 Macros 


This section contains implementation instructions for each of the macros. 
The instructions for an operation usually consist of a description of the 
operation's function, figures indicating data relating to the operation, and 
programming notes which contain details, and references to other relevant 
information. The figures consist of stylized represenations of the various data 


objects and the fields within them. 


A, Diagrammatic Representation of Data 


Figure 1 is the representation of a descriptor at LOC1. A, F, and V 
indicate the values of the address, flag, and value fields. . 


oo oe 
LCC1 I A i F Vv | 


Figure 1, Representation of a Descriptor 


Figure 2 is the representation of a specifier at LOC2. A, F, Vs, O, and L 
indicate the values of the address, flag, value, offset, and length flelds. 


LOCc2 { A { F i Vv { 0 I L i 
a a es 


Figure 2. Representation of a Specifier 


Character strings have two representations depending on how many characters 
are relevant to the description. 


Figure 3 is the short representation of a string of L characters at LOC3. 
C1 and CL are the first and last characters respectively. In this representa~ 
tion, the intermediate characters are not indicated. 


Ce ee ee 
LOc3 jc | eee {cL | 
Figure 3. Short Representation of a String 
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Figure 4 is the long representation of a string of L characters at LOCu. ~ 
CJ and CJ+1 are relevant characters in the interior of the string. The long “y 
representation is used when interior characters must be referred to. ) 


Loc4 }ci | eee {| Cy [CI+1. | cee { CL | 
se! Se ane En Rene ern eer ene Eee Sena 


Figure 4. Long Representation of a String 


~ Figure 5 is the representation of a syntax table entry. A, T, and P 
indicate the values of the next table address, type indicator, and put field. 


0c 5 { A | Tt 4 P ( 
EaSee een RDU OP Secret ed! eee ene 


Figure 5. Representation of a Syntax Table Entry 


Various values and expressions may occur in the fields of data objects. 
Fields are left blank when their value is not used in an operation. Fields 
which are changed have their new value underlined to make such fields easier to 
locate. Only changed fields are underlined. For example Figure 6 shows a 
descriptor whose address field is changed. The new value of the address field 
is A2, and no other fields are changed. 


! AZ l i { 
i es 


Figure 6. An Altered Descriptor 


~ 


Letters are used as abbreviations to differentiate the values which may 
appear ina field. The six basic fields are indicated by the letters A, F, V, 
O, L, and Cc. Numerical suffixes (which may be thought of as subscripts) are 
used as necessary to distinguish between values of the same type. Thus, for 
example, Al, A32, and AN might be used to refer to addresses, F1 and F2 to flags 
and soon. To make further distinctions where appropriate, I and R are.used to 
indicate integers and real numbers, respectively. - 


The reader should glance through the descriptions which follow to fami- 
liarize himself with the ways in which the figures and field notation are used. 


t 


B, Branch Points 


Program labels are included in the argument lists of many macros. These e 
addresses are points to which control may be transferred, depending on data (N 
supplied to the macros. In the macro descriptions which follow, such branch 
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© 


) 


points are underlined in the prototype of the macro call. See ACOMP which 


follows. 


In general, some or all of such branch points may be omitted in a macro 
call. An omitted branch point signifies that control is to pass to the next 
macro in line if the condition corresponding to the omitted branch point is 
satisfied. For example ACOMP is called in the following forms: 


ACOMP DESCR1,DESCR2,GT,EQ,LT 
ACOMP DESCR1,DESCR2,GT, EQ 
ACOMP DESCR1,DESCR2,GT 
ACOMP DESCR1,DESCR2,GT,,/LT 
ACOMP DESCR1,DESCR2,,EQsLT 
ACOMP DESCR1,DESCR2, EQ 
ACOMP DESCR1,DESCR2,e¢LT 


ACOMP is not called with all three branch points omitted since that is not a 
meaningful operation. Other macros such as SUM (q.ev.) are often called with 
all branch points omitted. : 


Implementation of the macros must take omission of branch points into 


consideration. Alternate expansions, conditioned by the omission of branch 
points, may be used to generate more efficient code. 


C..__ Abbreviations 


Several abbreviations are used in the descriptions that follow. These are: 


D is used for the addressing width of a descriptor. On the IBM 
System/360, the machine addressing unit is 1 byte, and D is 8. 


S is used for the addressing width of a specifier. S = 2D. 
CPD is used for the number of characters stored per descriptor. 
is used for (signed) integers. 

is used for real numbers. 


is used for indicator entries in syntax tables 


MY A wD HW 


is used for the address width of a syntax table entry. 


% is used to indicate the number of the last character in collating 
sequence. Characters are numbered from 0 to Z. 


D._ Data Type Codes 


The SNOBOL4 system has data type codes assigned for integers and real 
numbers, among others. These codes are indicated in the macro descriptions by 
Ic and RC respectively. The actual global symbols for these codes in the 
SNOBOL4Y system are I and R-respectively. The actual symbols are not used in the 
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descriptions to avoid confusion with the abbreviations given apove. However in &~ 
the implementation of the macros, IC should be replaced by I and RC by R.  ‘ 


Ee Programming Notes 


Programming notes are provided for some macro operations. The notes are 
intended to point out special cases, indicate implementation pitfalls, and to 
provide information about conditions that can be used to improve the efficiency 
of the implementation. 
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1. ACOMP (address comparison) 


2 ACOMP DESCR1,DESCR2,GT,EQ,LT | 
De CEs RC nN ee ee Ie Le ESE RS sO a OE | 


ACOMP is used to compare the address fields of two descriptors. 

7. The comparison is arithmetic with Al and A2 being considered 

integers: ; 
If Al > A2 transfer is to GT. 


If At 


A2 transfer is to EQ. 

If Al < A2 transfer is to LT. 
DESCR1 | Al | | ! 
DESCR2 1 A2 { i | 


Figure 7. Data Input to ACOMP 


Programming Notes 


oO 1. Al and A2 may be relocatable addresses. 


So 


2; See also LCOMP, ACOMPC, AEQL, AEQIC, and AEQLIC. 


See figure 


as 


signed 
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2: ACOMPC__ {address comparison with constant) 


{ ' BCOMPC DESCR,N,GT,EQ,LT | p 3 7 = ~ 


ACOMPC is used to compare the address field of a descriptor to a constant. 
See figure 8. The comparison is arithmetic with A being considered as a signed 
integer. : 


If A > WN transfer is to GT. 


If A N transfer is to EQ. 


If A <N transfer is to LT. 


DESCR { A | | - | 
Sy SPEARS SERCO, LES MOSES er: | 


Figure 8. Data Input to ACOMPC 
Programming Notes 
1. A may be a relocatable address. — 
2. WN is never negative. 
3. N is often 0° a 5 ee | om | 
| o} 


&. See also ACOMP, AEQL, AEQLC, and AEQLIC. 
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3. ADDLG (add to_specifier length) 


CS eee en ee ee 
- ADDLG SPEC,DESCR | 
i ree errr incense ceennanceeeeeal 


ADDLG is used to add an integer to the length of a specifier. 
9 and 10. 


SPEC l { l i i L I 


‘DESCR | ‘aa } | 1 


Figure 9. Data Input to ADDLG 


Figure 10. Data Altered by ADDLG 


Programming Notes 


1. I is always positive. 


See figures 
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he ADDSIB. (add sibling to tree node) 


neers 
{ ADDSIB DESCR1,DESCR2 | | | | ; 
: “eintl 


ADDSIB is used to add a tree node as a sibling to another node. See 
figures 11 and 12. 


A af V 
| ene mcm) ieee ERR asa | (Ca aR | 
DESCR1 1 At { \ i 


DESCR2 i A2 { F2 1 v2 i 
A1+FATHER | A3 1  ¥F3 1 v3 " 
A1*RSIB jf As ij F4 1 vu { 


A3+CODE l | I I | 


A2+RSIB {| A i -F4& iv t- 
A2+FATHER | AZ { §F3 i v3 \ 
Ai+RSIB {| # A2 tf F2. #{ v2. { 
A3+CODE | i I x+1 1 


Figure 12. Data Altered by ADDSIB 


Programming Notes 
1. ADDSIB is only used by compilation procedures. 


2e See also ADDSON and INSERT. 


\ 
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5. ADDSON._(add_ son to _ tree node) 


sen can mia a a a ia aa A ES DEER 
| ADDSON DESCR1,DESCR2 | 
renner 


ADDSON is used to add a tree node as a son to another node. See figures 
ard 78. . . ‘ 


DESCR1 {; at !  F1 1 vi " 
DESCR2 1 A2 [| ° F2 } v2 f 
A14LSON | A3 1 ¥F3 i v3 " 


A1+CODE { | . { I f 


A2*#FATHER | Al | F1 i vi ly 
CC 

A2+RSIB | A3 i £3 i v3 Iv 

J 


-Al#LSON | AZ tf F2 | ¥ 


Vv eS ee - 
A14CODE | . { | [+1 | ee 


: 
Figure 14. Data Altered by ADDSON 

Programming Notes 

4. ADDSON is only used by compilation procedures. 


2. See also ADDSIB and INSERT. 
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6. ADJUST __ (compute: adjusted address) 


| ADJUST DESCR1,DESCR2,DESCR3 | oe : “~: 
a ee em niece ceri i aia inn rinsed oy 


ADJUST is used to adjust the address field of a descriptor. See figures 15 
and 16. | . 


DESCR2 { A2 { | { 
DESCR3 | A3 { I { 


A2 | AY t | { 


DESCR1 |} A34Au | i j 


Figure 16. Data Altered by ADJUST 
. Programming Notes | | ne : ae is . 


1. A3 is always an address integer. 
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7; ADREAL _ (add real numbers) 


ds — Sn eheoerhwrwlhlhh ed 
-_ | - ADREAI DESCR1,DESCR2,DESCR3,FAILURE,SUCCESS | 
Se RR ccd 


‘ADREAL is used to add two real numbers. See figures 17 and 18. 


If the. result is out of the range available for ‘real numbers, transfer 


is to FAILURE. 


Otherwise transfer is to SUCCESS. 


_DESCR2 1 R2 1. F2 1 v2 4 
DESCR3 1 R3 bo : a 


Figure 17. Data Input to ADREAL 


ee 


, v cs v | 


DESCR1 1 R2*R3 | £F2 i v2 | 


Figure 18. Data Altered by ADREAL 
© Programming Notes 
1. See also DVREAL, EXREAL, MNREAL, MPREAL, and SBREAL. 
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8, AEOL (addresses equal test) 


i AEQL DESCR1,DESCR2,NE,EQ 1 | | ae 8 
| ee) 3 | 


i 
: bgp 


AEQL is used to compare the address fields of two descriptors. See , figure 
19. The comparison is arithmetic with Al and A2 being considered as signed 
integers: — Se gr tips 0s 4 4 a 
If Ai = A2 transfer is to EQ. 


If Al #. A2 transfer is to NE. 
DESCR1 i Al { i i 


DESCR2 i A2 { ee oe 


Figure 19. Data Input to AEQr 
Programming Notes | 
1. Al and A2 may be relocatable addresses. . 


2. See also VEQL, AEQLC, LEQLC, AEQLIC, ACOMP and ACOMPC. 
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9, AEQLC (address equal to constant test) 


ee Ee ene i eae oa ol 
AEQLC DESCR,N,NE,EQ | 
i i semi caieiesisnorsorsienataaomnineminmccll 


AEQLC is used to compare the address field of a descriptor to a constant. 
See figure 20. The comparison is arithmetic with A being considered as a signed 
integer. y 8 ; 
If A = N transfer is to EQ. 


If A # N transfer is to NE. 


DESCR t A a | i ot 


Figure 20. Data Input to AEQLC 
Programming Notes 
1. A may be a relocatable address. 
2. N is never negative. 
3. N is often 0. 


4. See also LEQLC, AEQL, AEQLIC, ACOMP, and ACOMPC. 
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10. AFQLIC (address equal to constant indirect test) 


i AEQLIC DESCR,N1,N2,NE,EQ | | | | am 
| ee | y eg jal 


AEQLIC is used to compare an indirectly specified address field of a 
descriptor to a constant. See figure 21. The comparison is arithmetic with A1 
being considered as a signed integer: 

If A2 = N2 transfer is to EQ. 


If A2 # N2 transfer is to NE. 


DESCR { Al | { { 
Ai+N1 \ A2 I i . a | 


Figure 21. Data Input to AEQLIC 
Programming Notes | ~ oe 
1. A2 may be a relocatable address. 
(2. N2 is never negative. | 


3. See also AEQL, AEQLC, LEQLC, ACOMP, and ACOMPC. —_ | - | eo) 
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11, _APDSP___ {append specifier) ee eae 


teak 

: Renan sene inane 
= APDSP SPEC1,SPEC2 | 

- eT] 


APDSP is used to append one specified string to another specified string. 
See figures 22 and 23. 


SPEC1 41-7] At i \ - {01 { 41 i 


| ee Re en ee Ba ee 
SPEC2 2->1 A2 | 02 {[ 2 


| ee Sane MENS Senne Se | 


See Reema CARI | 
A1+01 1 ci | ese {C1L1 | 
a Sac n Snnenene 


Cae ace amie 
A2+02 { C21 | eos =f C2L2 | 
ee ne Se | 


Figure 22. Data Input to APDSP 


A1+o1 {C11 | se. JCIL1 | C21 | ar {C2L2 |. 


Figure 23. Data Altered by APDSP 
Programming Notes . 
1. If L1 = 0, C21 is placed at 01 + Al. 


nnn 


2. The storage following C1L1 is always adequate for C21...C2L2. 


29 


12. ARRAY (assemble array of descriptors) 


Qe seh, sr gee ee ee 
{L ARRAY | | 7 | ny 


ARRAY is used to assemble an array of descriptors. See figure 24. 


ri 
oO 
o 
© 


a a nee | 
L*(N-1)*D | 0 1 0 i 0 i 


Figure 24. Data Assembled by ARRAY 
Programmi tes - 


1 All fields of all SSSR Sere es assembled by ARRAY must be zero when program 
execution begins. 


© 
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13. BKSIZE. (get block size) 


OOOO OT 
{ BKSIZE DESCR1,DESCR2 | - 
etic eRe ee ea Sy SRR ee ene cee a Nee | 


BKSIZE is used to determine the amount of storage occupied by a block or 
string structure. See figures 25 and 26. The flag field of the descriptor at A 
distinguishes between string structures and blocks. 

If F contains the flag STTL, then 


5 

F(V) =D * (4 + ((V - 1) 7 CPD + 1)) 
where [X] is. the integer part of X and CPD is the numbers of characters stored 
per descriptor. The constant 4 occurs because of the 4 descriptors (including 
the title) in a string structure in addition to _ the string itself. The 
expression in brackets represents the number’ of descriptors required for a 
string of V characters. 


Otherwise 


F(V) =V+D 
DESCR2 i Af i “| 


Figure 25. Data Input to BKSIZE 


| a is iii aera, 
DESCR1 1 Fv) 1 i} i Q i 


Figure 26. Data Altered by BKSIZE 
Programming Notes 


1. See also GETLTH. 
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14, __BKSPCE_ _ (backspace record 


H BKSPCE DESCR | 
$s tnt reer ainanat mites 


BKSPCE is used to back space one record on the file 
reference number I. See figure 27. , 


DESCR | z | { { 


Figure 27. Data Input to BKSPCE 
Programming Notes 4 j 
1. See also ENFILE and REWIND. 


an 


associated with unit 


2. Refer to the section on input ard output for a discussion of unit reference 


numbers. 


15, BRANCH (branch to program location) 


BRANCH LOC [,PROC] | 


a ri reseeminia nice cess mie iricieniorietaenel avin mmnraeicaatamaasaaeartacinl 


BRANCH is used to alter the flow of program control by branching to the 
operation at LOC. PROC, if given, is the procedure in which LOC occurs. 


Programming Notes 


1. Refer to the section on program organization and procedure entry points, 
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16, BRANIC (branch indirect with offset constant) 


re 
j BRANIC DESCR,N | ay, 


aici eer ei aaiinigm ema emnimmnnociienaie 3 , 7 Neen y 


BRANIC is used to alter the flow of program control by branching indirectly 
to the operation at LOC. See figure 28. ‘ 


DESCR i Ae aut, 1 i 
Aen i; Loc | 1 { 


Figure 28. Data Input to BRANIC 
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17. __ BUFFER (assemble buffer of blank characters) 


ae ee 
1 LOC BUFFER N ] 
5 ee ee eR ree Eee | 


BUFFER is used to assemble a string of N blank characters. 


Figure 29. Data Assembled by BUFFER 


Programming Notes 
1. All characters of the string assembled by BUFFER must be blank (not zero) 


when program execution begins. 


See figure 29. 
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18. CHKVAL (check value) 


SS SS eens 
| CHKVAL DESCR1, DESCR2,SPEC,GT,EQ,LT | lam 
(ee ee ae ey Lee ee TT Reet Ee Re ae ee ee ene eles 


CHKVAL is used to compare an integer to the length of a specifier plus 
another integer. See figure 30. 
If L + 12 > I1 transfer is to GT. 
If L + I2 = I1 transfer is to EQ. 


If L + I2 < I1 transfer is to LT. 
SPEC 1 L 4 com eae | L i 
DESCR1 \ I1 " i 1 


DESCR2 1 12 " i | 


Figure 30. Data Input to CHKVAL 


Programming Notes 
hon | ° 
1. I, I2, and L are always positive integers. 


2. CHKVAL is used only in pattern matching. 


@ 
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19. CLERTB (clear syntax table) 


Geo a te, ee ee ee ee ee a ee 
| CLERTB TABLE,KEY | 


ene a er ec a aR Se ee ee | 


CLERTB is used to set the indicator fields of all entries of a syntax table 


to a constant. KEY may be one of four values: 


CONTIN @ 
ERROR © 
STOP \é 
STOPSH 24 


The indicator field of each entry of TABLE is set to T where T 
indicator which corresponds to the value of KEY. See figures 31 and 32. 


TABLE 


TABLEtZ*E 


TABLE 


TABLEtZ*¥E 


Figure 31. 


| TABLE | 0 [ | 
| eS CE See | 


Figure 32. Data Altered by CLERTB for CONTIN 


Programming Notes 


1. See the section which discusses the structure of syntax tables. 


2. See also PLUGTB. 


Data Altered by CLERTB for ERROR, STOP, or STOPSH 


the 
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co? __ {EO file into assembly) 


Me ne a ee ee er el 
{ COPY FILE | re é Fou 


COPY is. used to copy a file of machine-dependent data into the SNOBOL4 
program. COPY occurs three times in the assembly: 


COPY _ MDATA 
COPY MLINK 
COPY PARMS 


MLINK and PARMS are copied at the beginning of the SNOBOL4 assembly. MDATA is 
copied in the data region after the program. . 


MDATA is a file of machine-dependent data. It contains data used in 
implementation of the macros and for strings which depend on the character set 
of an individual machine or present other problems which prevent a machine- 
independent representation. These are: 


1. ALPHA, a string that consists of all characters arranged in the 
order of their internal numerical representation (collating sequence). 


2- AMPST, a string consisting of a single ampersand, or whatever 
‘character is used to represent the keyword operator in the source 
language. 


3. COLSTR, a string of two characters consisting ‘of a colon followed ae 
a blank. 


4. QTSTR, a string consisting of a single quotation mark, or whatever 
character is used to represent a quotation mark in the source language. 


These strings of characters are pointed to by the specifiers ALPHSP, AMPSP, 
COLSP, and QTSP respectively. . 


MLINK is a file of entry points and external symbol names which describes 
linkages used to access machine-language subroutines and I/O packages. 


PARMS is a file of machine-dependent constants (equivalences). It contains 
constants used in the implementation of the macro and definitions of nine 
symbols. These are: 


1. ALPHSZ, the number of characters in the character set for the 
machine. (ALPHSZ is 256 for the IBM System 360.) 


2. CPA, the number of characters per machine addressing unit. (CPA is 
1 for the IBM System/360, i.e. 1 character per byte.) 


3. DESCR, the address width of a descriptor. @ 
7 } 
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4. FNC, a flag used to identify function descriptors. 
5. MARK, a flag used to identify descriptors which are marked titles. 


6. PTR, a flag used to identify descriptors pointing into SNOBOL4 
dynamic storage. . 


7. SIZLIM, the value of the largest integer that can be stored in the 
value field of a descriptor. 


8. SPEC, the address width of a specifier. 


9. STTL, a flag used to identify descriptors which are titles of string 
structures. 


10. TTL, a flag used to identify descriptors which are titles of 
blocks. : 


11. UNITI, the number of the standard input unit. UNITI is 5 for the 
IBM System 360 implementation. 


12.  UNITO, the number of the standard print output unit. UNITO is 6 
for the IBM System 360 implementation. 


13. UNITP, the number of the standard punch emer unit. UNITP is 7 
for the IBM System 360 implementation. 


CSTACK and OSTACK, the current and old stack pointers, respectively, should 
be defined in one of the COPY files. These pointers may either be in registers, 
or in the address fields of descriptors, depending on how the stack management 
INMacros are implemented (see PUSH, e.g.). If these pointers are implemented as 
registers, they should be defined in PARMS. If they are implemented in storage 
locations, they should be defined in MDATA. 


Programming Notes 

1. COPY may be implemented in a variety of ways. COPY may, for example, simply 
expand into the data required, depending on the value of its argument as geven 
above. - . 


2. Any of the COPY segments can be used to incorporate other machine-dependent 
data. 


39 


21, CPYPAT (copy pattern) 


i CPYPAT DESCR1, DESCR2,DESCR3,DESCR4,DESCR5,DESCR6 | 


CPYPAT is used to copy a pattern. See figures 33, 34, 35, 36, 37, and 38. 
First set 


At 


R11 = 
R2 = A2 
R3 = A6- 
where R1, R2, and R3 are temporary variables. Sections of the pattern are 


copied for successive values of R1 and R2. After copying each section, set 


R3 = R3 - (1+ V7) * D 


Then set 


R1 


R1+ (1% V7) * D 


R2 = R2 + (1 + V7) * D 


If R3 > 0, continue, copying the next section. Otherwise the operation ig 
complete. The final value of R1 in inserted in the address field of DESCR1. 


The functions F1 and F2 are defined as follows: 
F1(X) = 0 if X = 0 


F1(X) = X + AY otherwise | _. 


if x = 0 


it 
ty 
ul 


F2 (X) 


F2(X) X + AW otherwise 


il 


4&0 


() 


DESCR1 { A1 i { | 
DESCR2 i A2 { i I 
DESCR3 i a3 { i | 
_DESCR4 j ad i | | 
DESCR5 1 AS r | 


DESCR6 1 A6 | | l 


R2+D { A7 i F7 { V7. I 


~”  -R242D | AS f 0 1 v8 1” 


en naa ede 
R2#3D | AQ I 0 { v9 1 


| ee ee 


Figure 34. . Data Input to CPYPAT for Successive Vaues of R2 


— 


R1+D | A7 { FZ j v7 1 = 
ne ee 
Og ee ee ee, 

R1+#2D ruas) | Oo | F2qvay 1 ~ 
a eee Manne | 

SS ee 

R1+3D A+ { 0 { V94HA3 1 Y 


a nn nn | 


Figure 35. Data Altered by CPYPAT for Successive Values of R1 


SN ee oe Nee peg a 
R2¢+4D { A10 | F10 | v10 ae 


f ® 
C Figure 36. Additional Data Input for Successive Values of R2 if V7 = 


R14#4D |. al | FiO [| V10 i” 


a Ce 


Figure 37. Additional Data Altered for Successive Values of R1 if V7 = 3 


- 


DESCR1 { R1 1 { f 


Figure 38. Data Altered when Copying is Complete 


42 


(ono 


Cc 


22. DATE (get date) 


Coco ee ee ee, ae 
{ DATE SPEC | 
cere nnn ceetatietencenenetistnenenitiomennemnal 


DATE is used to obtain the current date. See figure 39. 
representation of the current date is placed in BUFFER. 


<) Se) iL 
SPEC | BUFFER | Q | Q j 0 { L ] 


N | a: nn Min annee Keene Se Ee 


BUFFER PCr dq: She Cee: 4 


ad & ma: 
Figure 39. Data Altered by DATE 


Programming Notes 


BR character 


1. The choice of representation. for the date is not important so far as the 


source language is concerned. Thus 


April 1, 1968 
04/01/68 
431368 

68.092 


are all acceptable. 


2. BUFFER is local to DATE and- its old contents may be overwritten by a 


subsequent use of DATE. 


3. DATE is used only in the DATE function. 


4, Implementation of DATE, as such, is not essential. In this case, DATE 


should set the length of SPEC to zero and do nothing else. 
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236-0 \ (decrement address 


Qe ee ee ae eke ee 
H DECRA DESCR,N | 
eee cnnrermereneenenecetinntameaemnimeesenreniennnveceananemesinennnteal 


DECRA is used to decrement the address field of a descriptor. 
40 and 41. A is considered as a signed integer. 


DESCR | A { 1 { 


Figure 40. Data Input to DECRA 


DESCR { A-N | | l 
Os es 


Figure 41. Data Altered by DECRA 
Programming Notes | | 
'. iA nae be a relocatable address. 
2. WN is always positive. 
3. N is often 1 or D. 
4. A- N may be negative. 


5- See also INCRA 
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See figures 


24. DEOL (descriptor equal test) 


DEQL DESCR1,DESCR2,NE,EQ | 


f) 


DEQL is used to compare two descriptors. See figure 42. 
If Al = A2, Fi = F2, and V1 = V2, transfer is to EQ. 


Otherwise transfer is to NE. 
‘DESCR1 1 Al I F1 i v1 | 


DESCR2 {| A2 | ¥F2 i v2 { 


Figure 42. Data Input to DEQL 


Programming Notes 


4. All fields of the two descriptors must be identical for transfer to EQ. 
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25, DESCR _ (asser descriptor 


Wa neinsirnissesin isin icine rinitiaiticncarstinangiageell 


Fa a re ea ea a, | : 
| Loc DESCR A,F,V | | 2 7 | +) 


DESCR assembles a descriptor with specified address, flag, and value 
fields. See figure 43. a 


Loc | A | F bea NM | 


Figure 43. Data Assembled by DESCR 
Programming Notes 


1. Any or all of A, F, and V may be omitted. A zero field must be assembled 
when the corresponding argument is omitted. 
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26 DIV divide integers 


j DIVIDE DESCR1, DESCR2,DESCR3,FAILURE eSUCCESS ] 


DIVIDE is used to divide one integer by another. Any remainder is ignored. 
That is, the result is truncated, not rounded. See figures 44 and 45. 
If I =.0 transfer is to FAILURE. 


Otherwise transfer is to. SUCCESS. 


Figure 44. Data Input to DIVIDE 


DESCR1 | AZT | F tft wv 4 


‘Pigure 45. Data Altered by DIVIDE 
Programming Notes 


1. A may be a relocatable address. 


U7 


Zi, DVREAL  idivide real numbers) 


OL ay 
j DVREAL DESCR1, DESCR2, DESCR3 , FAILURE, SUCCESS | a™ ) 
ee ae ee ee aig 


‘ingen 


DVREAL is used to divide one real number by another. See figures 46 and 
G7. | | ' | 


If R3 = 0 or the result is out of the range available for real numbers, 
transfer is to FAILURE. 


»Otherwise transfer is to SUCCESS. 
DESCR2 { R2 | F2 { V2 | 
DESCR3 i R3 I { 1 


‘Figure 46. Data Input to DVREAL 


ee ee ee 
DESCR1 | R2/R3 | F2 f v2 
| eS Se Ee | 

“Figure 47. Data Altered by DVREAL | ve] 


Programming Notes 


1. In addition to use in source-language arithmetic, DVREAL is used in the 
computation of statistics published at the end of a SNOBOL4 run. 


2. See also ADREAL, .EXREAL, MNREAL, MPREAL, and SBREAL, 


ood 
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28. END (end assembly) 


{ END | 


| eee | 


END is used to terminate assembly of the SNOQBOL4 system. 
once and is the last card of the assembly. | 


It occurs only 


&9 


29, __ ENDEX (end execution of SNOBOL4 run) . 


Qe ee ee 
i ENDEX DESCR | | ~ 


, re | : seen gee 


ENDEX is used to terminate execution of a SNOBOL4 run. ENDEX is the last 
instruction executed and is responsible for returning properly to the environ- 
ment which initiated the SNOBOL4 run. See figure 48. 


If I is nonzero, a post-mortem dump of user core should be given. 


DESCR | I | { i 


Figure 48. Data Input to ENDEX 


Programming Notes 


1. If a dump is not given, the keyword SABEND will not have its specietea 
effect. Nothing else will be affected. 


2. On the IBM 360, if I is nonzero, an abend dump is given with a user code of 
Le a a 


3. See also INIT. 


Pgs r 


oy 
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Cc 


30. ENFILE (write end of file) 


oe ee 
{ ENFILE DESCR |{ 
es eel 


ENFILE is used. to write an end-of-file on (close) the file associated with 


unit reference number I. See figure 49. 


DESCR | I { 1 | 


Figure 49. Data Input to ENFILE 
Programming Notes . : 
1. See also BKSPCE and REWIND. 


2. Refer to the section on input and output for a Aiiecusdion of unit 
numbers. 


reference 
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31. _EQU (define symbo] equivalence) 


EGET ee eee ne ne 
§ SYMBOL EQU N ] 
hn ccrccscnvciicesnphcosies iano interracial nts 


EQU is used to assign, at assembly time, the value of N to SYMBOL. 
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32. _EXPINT (exponentiate jntegers) 3 


Henne eran e enn en nn cn nae rranmae mmmnetieestatmentehemmetunmntnemmataantatteetmmettatatasrmmnereananesnensammnaiasaauasaasscassanesimemunsimammucammmuasmsmsmamaaamae | 


Fanaa aaa mac REEL 
{ EXPINT DESCR1,DESCR2,DESCR3,FAILURE,SUCCESS j{ 
Oc recent nner 


51. 


If 1I1 = 0 and I2 is not positive, or if the result is out of the range 


available for integers, transfer is to FAILURE. 


Otherwise transfer is to SUCCESS. 


DESCR2 | r1 | e | Vv { 


DESCR3 1 12 { I i 


DESCR1 {| 11**412 1 F | Vv ot 


Figure 51. Data Altered by EXPINT 


EXPINT is used to raise an integer to an integer power. See figures 50 and 
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33, EXREAL  (exponentiate rea] numbers) 


H EXREAL DESCR1, DESCR2,DESCR3,FAILURE,SUCCESS | sim 


Sessa ii ebm sigs atin ai aarti et seamen sg ie eneainnctnean eens iinsnagceniicll las : 
é A sea 


EXREAL is used to raise a real number to a real power. See figures 52 and 
53. . . 


If the result is out of the range available for real numbers, transfer 


is to fajlure. 


Otherwise transfer is to success. 


DESCR2 i R1 | F ! V 1 
DESCR3 | R2 | i { 


Figure 52. Data Input to EXREAL 


DESCR1 | RI**R2 | F tf vf 
[ es Sn ee | 


Figure 53. . Data Altered by EXREAL 


@ 
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34 FORMAT ass le format strin 


Cc } Loc FORMAT °C%4...CN? j 
teres ereieceec am ancaennibianeccell 


FORMAT is used to assemble the characters of a format. See figure 54. 


SS a ee 
Loc | Ci ] ese j CN { 
ee a ee 


Figure 54. Data Assembled by FORMAT 
Programming Notes 


4. The characters assembled by FORMAT are treated as an "undigested" format by 


FORTRAN IV routines. 
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325, FSHRIN  (foreshorten specifier) 


FSHRIN SPEC,N | 


~ sn ingaseerierepns ssi tatihanitomtrinbrgpoaiiteenpemamenictensanienicnsioatincecsesesiteeilt 


See figures 55 and 56. 


0) 
'd 
A 


SPEC 


{ | { { 1) { L { 
- Figure 55. Data Input to FSHRTN 


Cr re ee ete ee rye ne rt ere Eee eee ee 
ee | | ON { Len . | 


a 


Figure 56. Data Altered by FSHRTN 


Programming Notes 


1. 
2~< 


56 


L- Nis never negative. 


See also REMSP. 


FSHRTN is used to exclude initial characters from a string s 


weet 


pecification. 


{ ) 


f 


36. _GETAC et address with offset constant} 


ie OOO 
Ci GETAC DESCR1,DESCR2,N | 
nn re ene genera nemacteenmnerneeamnanenennenaentl 


GETAC is used to.get an address field with an offset constant. See figures 
57 and 58. 


DESCR2 { A2 i i [ 


A2+N | A {. { 


DESCR1 I A { { | 


Figure 58. Data Altered by GETAC 
roqram tes 
| Cc 1. See also PUTAC, GETDC, and PUTDC. 


N Hey be negative | 


37. _GETBAL (get parenthesis balanced string) 


GETBAL SPEC,DESCR,FAILURE,SUCCESS | = - 
: waa 


; 


Gain ren iti in iain nimi ttsssccesmsionnaiiaiin vinieticed 


GETBAL is used to get the -specification of a balanced substring. See 


figures 


59 and 60. The string starting at CL+1 and ending at CL+N is examined 


to determine the shortest balanced substring CL+1,...,CLtd. J is determined 
according to the following rules: 


SPEC 
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If CL+1 is not a parenthesis, J = 1. 


If cCL+1 is a left parenthesis, J is the least integer such that CL+ 
1...CL#J is balanced with respect to parentheses in the usual algebraic 
sense. — pags as 


If cCLt1 is a right parenthesis, or if no such balanced string exists, 
transfer is to FAILURE. 


Otherwise SPEC is modified as indicated and transfer is to SUCCESS. 


es eae eC AUR GKEE: meena sania | 
j; ci | eee {| CL |jCL+1 | eee {CL+N | 
ne OO a ee ns aT 


Figure 59. Data Input to GETBAL 


~ 


a 


{ A t { { ‘e) { L+J { 


| OEE ECE EEED SE ee eS Se | 


Figure 60. Data Altered by GETBAL 


} 


38, GETD (qet descriptor) 


SS 
I GETD DESCR1,DESCR2,DESCR3 | 
eee ee tr nsereercencencee cameramen snl 


GETD is used to get a descriptor. See figures 61 and 62. 


DESCR2 { aA2 I { I 
DESCR3 { .A3 m | 1 1 
A2+A3 H A I F i Vv i 
Figure 61. Data Input to GETD 


oT Ee Ss SS, 
DESCR1 1 A I E { v { 
ener 


Figure 62. Data Altered by GETD 


Programming Notes 
14. See also GETDC, PUTD, and PUTDC. 


39. GETDC (get descriptor with offset constant) 


ty 
GETDC DESCR1,DESCR2,N | | | 
ccc cnanresestsosactorceenedsgpweviesnstaidainesminnamnivinnopeiosinsoeseal sellanspudioeacanasanetcissenimmaioeainotanotimiansoll ; 7 ie : . legggoe? ; 


GETDC is used to get a descriptor with an offset constant. See figures 63 
and 64. 


Figure 63. Data Input to GETDC _ 
DESCR1 {| A f| EF ft Vv 4 
Figure 64. Data Altered by GETDC. _ 


Pregramming Notes 
1. See also GETD, PUTDC, and PUTD. 
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© 


40. GETLG (get length of specifier) 


ee re 
eel GETLG DESCR,SPEC { 


cee serene eraneneinernerteenareraemniantnemnemnraacammesmeaasantiall 


GETIG is used to get the length of a specifier. See figures 65 and 66. 


SPEC { { { i - 1 L | 


Figure 65. Data Input to GETLG 


DESCR i L | 0 I 0 i 


| San Renee | 
Figure 66. Data Altered by GETLG 


Programming Notes 
1. See also PUTLG. 
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Oi, GETLTH (get length for string structure) ~ 


i GETLTH DESCR1,DESCR2 | : _ 2) 
cad 


GETLTH is used to determine the amount of storage required for a string 
Structure. See figures 67 and 68. The amount of storage is given py the 
formula . : 

F (L) = D* (3 + ((L - 1) 4 CPD + 1)) 
where [XJ] is the integer part of X and CPD is the numbers of characters stored 
per descriptor. The constant 3 accounts for the three descriptors in a_ string 


structure in addition to the string itself. The expression in brackets 
represents the number of descriptors required for a sting of L characters. 


DESCR2 | L { { | | 


Figure 67. Data Input to GETLTH 


r 
DESCRI | FI) | O ft QO | 
cs ! 


Figure 68. Data Altered by GETLTH o 
Programming Notes 
1. See also BKSIZE. 
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.42.__GETSIZ._ (get size) 


GETSIZ DESCR1,DESCR2 | 
ene wenrennerennt 


| _—_————— nnn 


GETSIZ is used to get the size from the value field of a title 
See figures 69 and 70. : 


DESCR2 


A 


DESCR1 


I< 
° 
° 


Figure 70. Data Altered by GETSIZ 


Programming Notes 
Cc 1. See also SETSIZ. 


descriptor. 
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&3,.  GETSPC (aet specifier with constant offset) 


i] GETSPC SPEC,DESCR,N | 1) 
ee od : a -— “abi 


GETSPC is used to get a specifier. See figures 71 and 72. 
DESCR { Al { { | 


A14N { A 1 °F { Vv i oO { L { 


Figure 71. Data Input to GETSPC 


SPEC t 


i> 


F { vet .@Q i L an 


Figure 72. Data Altered by GETSPC 
Programming Notes - 7 : 
1. See also PUTSPC. 
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Qu, INCRA (increment address) 


INCRA DESCR,N | 


INCRA is used to increment the address field of a descriptor. See figures 
73 and 74. 


DESCR an | A \ i 


Figure 73. 


DESCR | AtN { { 


Figure 74. Data Altered by INCRA 


Programming Notes 


1. 
26 


3. 


A may be a relocatable address. 
A is never negative. 

N is always positive. 

N is often 1 or D. 


See also DECRA and INCRV. 


Data Input to INCRA 
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45. TNCRV (increment value field) — = 


3 
{ INCRV DESCR,N | 
t ; 


INcRV is used to increment the value field of a descriptor. 
and 76. I is considered as an unsigned (nonnegative) integer. 


DESCR i { { I ( 


Figure 75. Data Input to INCRV 


DESCR i { 1 L+N { 


Figure 76. Data Altered by INCRV 
TO: j Notes 
i. Nis always positive. 
2. N is often 1. 


3. See also INCRA. 
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\ 


- i 
‘etd 


See figures 75 


an 
‘2 


46,__INIT (initialize SNOBOL4 run) 
So ee ee 
{ INIT | 
a 


INIT is used to initialize a SNOBOL4 run. INIT is the first instruction 
executed and is responsible for performing any initialization necessary. The 
function of this. operation is machine and system dependent. Typically, INIT 
sets program masks and the values of certain registers. 


In addition to any initialization required for a particular system and 
machine, INIT also performs the follwing initialzation for the SNOBOL4 system: 


Dynamic storage is initialized. The address fields of FRSGPT and HDSGPT 
are set to point to the first descriptor in dynamic storage. TLSGP1 is set to 
the first descriptor past the end of dynamic storage. Space for dynamic storage 
may be preallocated or seized from the operating system by INIT. 


The timer is initialized for subsequent use by the MSTIME mucre (q-V.)- 


Programming Notes 
1. See also ENDEX. 
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47, INSERT finsert node _ in tree) 


—_—— 
j INSERT DESCR1,DESCR2 | 


INSERT is used to insert a tree node above another node. See figures 


DESCR1 i oat | F1 i vi t.- 
eee | A2 1 F2 { v2 { 
A1#PATHER 1 .A3 | F3 i v3 i 
A3+#LSON | AY i Fu 1 v4 i 


A2+CODE i | ' I i 


/RI*FATHER | A2 | F2 


/ AW+#RSIB | A2 !  ¥F2 1 v2 i 


Coc se a ee ee yee ge 
/A2*FATHER { A3 i £3 i v3 1’ 


; | ER ia meaner ci eee aa ais ies ma meaaca mt | 
/x24LSON i al 1 F1 ivi pv 


A2+*+CODE | ! 1 - r+1 t 


Figure 78. Data Altered by INSERT 


Proqramming Notes 
1. See also ADDSIB and ADDSON. 


2. INSERT is only used by compilation procedures. 
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48, INTRE (convert integer to real number) 


Ya aa a Ec EI | 
j INTRL DESCR1,DESCR2 | 
A acerca estes ninco einer acetone 


INTRL is used to convert a (signed) integer to a real number. Sée figures 
79 and 80. R(I) is the real number corresponding to I. 


DESCR2 i og. { i , i 


Figure 79. Data Input to INTRL 


DESCR1 . | R{I) 1! Q | RC i 


Figure 80. Data Altered by INTRL 


Programming Notes 
1. RC stands for the code for the real data type. 
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49, INTSPC (convert jnteger to specifier) 


f " quraceemecar es | : . = r 
i INTSPC SPEC,DESCR | | : a | fm 
a Eee ee ee ig ‘egg EF 


. INTSPC is used to convert a oa integer to a specified string. See 
figures 81 and SZ. 


Figure 81. Data Input to INTSPC 


V Jo vA 
SPEC i BUFFER | Q { Q ] 


fo) 
it 


BUFFER+O | C1 {| oe- [CL | 


ed 


ee 
Figure 82. Data Altered by INTSPC 
ogrammin otes | 
1. Ci...CL should be a "normalized" string corresponding eS: the integer I. 
That is, it should contain no leading zeroes and begin with a minus sign if I To 


- negative. 


2. BUFFER is local to INTSPC and its contents may be overwritten by a 
subseguent use of INTSPC. 


3. See also SPCINT. 
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50. JSTACK (initialize stack) 


CS ee ee 
{ ISTACK | 
| ae 


ISTACK is used to initialize the system stack. 


OSTACK { 9 I { 


CSTACK j STACK | j 


Prog ramming Notes 


of the system stack. 


2. See also PSTACK, RCALL, and RRTURN. 


See figure 83. 


Figure 83. Data Altered by ISTACK 


'4. STACK is a global symbol whose value is the address of the first descriptor 
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1. __ LCO __ (length comparison) 


ee tg ne aE ee eS Pee a ee 
LCOMP SPEC1,SPEC2,GT,EQ,LT | 
nee | 


LCOMP is used to compare the lengths of two specifiers. See figure 84. 
If L1 > L2 transfer is to GT. 
If L1 = L2 transfer is to EQ. 


Xf Li < L2 transfer is to LT. 
SPEC1 { { 1. [ {. 1 { 


SPEC2 f | - { i 2 { 


Figure 84. Data Input to LCOMP | 
Programming Notes - 
4.2 See also ACOMP, RCOMP and LEQIC. 


72 


ia 


52. LEQLC (length equal _to constant test) 


——__eeeeee_=_ee”””S””SC—**=s=#SC 
LEQLC  SPEC,N,NE,EQ | 
erence 


LEQLC is used to compare the length of a. 
figure 85. The magnitudes are compared. 


If L = N transfer is to EQ. 


If L # N transfer is to NE. 


SPEC { l [. i 


specifier to a constant. 


Figure 85. Data Input to LEQLC 


Pro gtes 
1. Land N are never negative. 


2. See also LCOMP, AEQLC, and AEQLIC. 


See 


53. LEXCMP _ (lexical comparison of strings) ' 


{ | LEXCMP SPEC1,SPEC2,GT,EQ,LT | im | 


‘dite ie , 


LEXCMP is used to compare two strings lexicographically (i. e. ag¢cording 
to their alphabetical ordering). See figure 86. oS 


If C11...C1N1 > C21...C2M transfer is to GT. 


If C11...CiN1 C21...C2M transfer is to EQ. 


If C11...CIN1 < C21...C2M transfer is to LT. 


A2+62 {C21 | ces | C2M{ 
he oe ae aad 


Figure 86. Data Input to LEXCMP : 0. 


Programming Notes 


1. The lexicographical ordering is machine dependent and is determined by the 
numerical order of the internal representation of the characters for a 
particular machine. 


2e A string which is an initial gubscring of another string is lexicographical-~ 
ly less than that string. That is 


"ABC? is less than 'ABCA* 


3. The null (zero length) string is lexicographically less than any other 
String (except the null string). 


4. Two strings are equal only if they are of the same length and identical 
character by character. 


5. By far the most frequent use of LEXCMP is to determine whether two strings 
are the same or different. In these cases GT and LT will specify the same 
location or both be omitted. Because of the frequency of such use, it is 
desireable to handle this case specially if a test for equality can be performed 
more efficiently than the general case. 


e, 


T4 


er, 


“Seno” 


54, LHERE (define location here) 


CO 
| Loc LHERE | 


) | 


LHERE is used to establish the equivalence of LOC as the location of the 


next program instruction. 


Programming Notes 


1. LHERE is equivalent to the familiar EQU *. Similarly 


LOC LHERE 
OP 


is equivalent to 


LOC OP 


55. LINK (link to external function) 


aaa a aa ane a . 
{ LINK DESCR1, DESCR2, DESCR3 ,DESCR4 ,FAILURE,SUCCESS | : tm 


Pl , Nip 


LINK is used to link to an external function. See figures 87 and 88. A2 
is a pointer to an argument list of N descriptors. A4& is the address of the 
external function to be called. V1 is the data type expected for the resulting 
value. The returned value is placed in DESCR1. 


If the external function signals failure, transfer is to FAILURE. 
Otherwise the transfer is to SUCCESS. 

DESCR1 | i | v1 I 

DESCR2 j A2 { { i 

DESCR3 { N 1 | j 


DESCR4 { A4 { { l 


Figure 87. Data Input to LINK 


DESCR1 { 


ip 


Ez i v l 


Figure 88. Data Altered by LINK 
Programming Notes 
1. LINK is a system-dependent operation. 


2. LINK need not be implemented if LOAD is not. In this case, LINK should 
branch to INTR10. 


3. See aiso LOAD and UNLOAD. 


eC 
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56,__LINKOR. (link "“or® fields of pattern nodes) 


SS ee 
{ LINKOR DESCR1,DESCR2 | 
a | 


| Senn emmad 


LINKOR Links through "or" fields of pattern nodes until the end, indicated 


by a zero field, is reached. 


and 90. 


DESCR1 
DESCR2 
A+2D 


A+2D+11 


A+2D+IN 


At2D+IN 


Figure 89. Data Input to LINKOR 


{ L i | i { 


eee ener Leeann ner nenereenennel 


Figure 90. Data Altered by LINKOR 


This zero field is replaced by I. See figures 89 
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57. LOAD {lgad external function) 


a a — v 
| LOAD DESCR, SPEC1,SPEC2,FAILURE,SUCCESS | 7: ‘ 
a sencesneenemes-earpuse seins eanastanastes a a aD | Hf Pe 


. 


LOAD is used to load an external function. See figures 91 and 92. 
C11...C1L1 is the name. of the external function to be loaded from a library. 
C21...C2L2 is the name of the library. A3 is the address of the entry point 

| Tf the external function is loaded, transfer is to success. 


\ Otherwise transfer is to failure. 


SPEC2 {  A2 | { 02 {| 12 i 
A1+01 } C11 | eee =fCTLt | 

ae | | 
A2#02 =| C27 [ «eee 4C2L2 | 


Figure 91. Data Input to LOAD . : . es2 


DESCR | A3 { { l 
| ENCE SS Cee | 


Figure 92. Data Altered by LOAD 


Proqramming Notes 
1. LOAD is a system-dependent operation. 

2. LOAD need not be implemented as such. If it is not, the primitive function 
LOAD will not be available, and an error comment should be generated by 
branching to UNDF. 


3. On the IBM/360, LOAD uses the OS macro LOAD to bring an external function 
from the library whose DDNAME is specified by C21...C2L2. 


4%. See also LINK and UNLOAD. 


e 
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58, LOCAPT {locate attribute pair by type) 


a aE | 


—_—_—_—_—_——— 
{ LOCAPT DESCR1, DESCR2,DESCR3,FAILURE,SUCCESS | 
Mc ec ntentnneemen-ceearemenanen cements 


LOCAPT is used to locate the "type" descriptor of a descriptor pair on an 
attribute list. Descriptors on an attribute list are in "type-value" pairs. 
Odd numbered descriptors are "type" descriptors. See figures 93 and 94. The 
list starting at A + D is searched, comparing descriptors at A + D, A + 3Dg sw we 
for the first descriptor whose value is equal to the value of DESCR3. 


If a descriptor equal to DESCR3 is not found, transfer is to FAILURE. 


Otherwise transfer is to SUCCESS. 


DESCR3 j ‘A3 . | F3 { V3 | 
Se ee 
Pe 

A I { 1 2K*D | 


AgtDy2I*D | A3 | | F3 | v3 I 


A+2K*D { i { { 

: [CN Oe eo | 
Figure 93. Data: Input to LOCAPT 

SS ee 

DESCR1 { At2I*D | EF | Vv { 

Dre cec rene erecenernrennlleeeemenaeaeananncesanemaiinnasemneeeminanmanenencsncsen 


Figure 94. Data Altered by LOCAPT 


793 


Programming Notes 


4. Note that the address 


descriptor which is located. 


2s. See also LOCAPV. 
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of DESCR1 is set to 


Pee 


s 
4a a 


one descriptor less than thew 


+ 


() 


59, LOCAPY (locate attribute pair by value) 


ESSERE DEE ECT nnT tn eeseamneneansernnnsmmnstenintenemnneanenmmmmncanuntaenenaramnamenimeecaaiamemaaaaiamaaaaaas | 


e ’ 
| LOCAPV DESCR1,DESCR2,DESCR3,FAILURE,SUCCESS | 
en nr nr erent ernest 


| ence 


LOCAPV is used to locate the "value" descriptor of a descriptor pair on an 


attribute list. Descriptors on an attribute list are in "type-value" pairs. 
Even numbered descriptors are "value" descriptors. See figures 95 and 96. The 
list starting at A + D is searched, comparing descriptors at A + 2D, A + 4D, ««- 
for the first descriptor whose value is equal to the value of DESCR3. 

If a descriptor equal to DESCR3 is not found, transfer is to FAILURE. 


Otherwise transfer is to SUCCESS. 


DESCR2 | A | F 1 Vv { 


DESCR3 ;  A3 | F3 i v3 [ 


i ® e : 
At2D+ 21*D | A3 | F3 | V3 | 


A+2K*D i | | l : 


Figure 95. Data Input to LOCAPV 


DESCR1 1 At2I*D | F { 


Figure 96. Data Altered by LOCAPV 
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Programming Notes 


1. Note that the address 
descriptor which is located. 


2. See also LOCAPT. _ 
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rc 


. Z fring 
of DESCR1 is set to two descriptors less than thu... 


itm 
werd 


60, LOCSP (locate specifier to string) 


ee eeeemnnneemnemmemenas | 


co 
j LOCSP SPEC,DESCR | 
| eee | 


LOCSP is used to obtain a specifier to a string given in a _ string 
structure. CPD is the number of characters per descriptor. See figures 97, 98 
and 99. 


'DESCR { A i F t Vv { 


Figure 97. Data Input to LOCSP 


aE Se Sn ee Sy ae 
SPEC i A tt EF ¢ M4 SPD 1 ZL’ 1 


EARS NR ee N ORI eee Ieee Reem Sarena eee EES 


Figure 98. Data Altered by LOCSP if A # 0 


SPEC { i i ( I Q | 


ut 
So 


Figure 99. Data Altered by LOCSP if A 


Programming Notes 
1. If A = 0, the value of DESCR represents the null (zero length) string and is 


handled as a special case as indicated. The remainder of SPEC is unchanged in 
this case. 
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Si. LVALUE  (qet Least length value) | 


] LVALUE DESCR1,DESCR2 | ; fate 
i a 


LVALUE is used to get the least value of address fields ina chain of 
pattern nodes. See figures 100 and 101. The address field of DESCR1 is set to 
I where — 


I = minimum(1I1,...,1K) 
DESCR2 i A | i i 
- A€2D | N1 i. { i 
— At3D | 11 | { | 
A+N1+2D i N2 {. a | . 


A*N1+#3D \ r1 [ { ! 


A+NK+2D { 0 | : ae | 


A+NK+3D { IK 1 i ! 
Figure 100.” Data Input to LVALUE 


gn ete ee 
DESCR1 bo. 0 1 oO f 
EE ER ee | 
Figure 101. Data Altered by LVALUE 
Programmjing Notes 


1. %I1,...,IK are all nonnegative. 


2. A is never zero, but N1 may be. 
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62. _MAKNOD__ (make pattern node) 


re | MAKNOD DESCR1, DESCR2,DESCR3,DESCR4,DESCRS [,DESCR6] | 
ee een eer enone near meatatn stan ae aeamtenenererearoennenemcmnenenarsseeeell 


[| ry 


MAKNOD is used to make a node for a pattern. See figures 102 and 103. 


DESCR2 | A2 |  ¥F2 { v2 lv 
DESCR3 }  A3 i Rae 
DESCR4 | Aa | me 


DESCR5 i A5 { F5 { v5 17 


DESCR6 i A6 | ¥F6 | v6 | © 
| Cc | Figure 103. Additional Data Input if DESCR6 is Given 


V DESCRI { a2 | £F2 2 [ine 


“ A24D 1 AS | FS - 1. Wa lv 
/ A2+2D | AY 1 { l/ 
“A243D | A3 l { lv 


Figure 104, Data Altered by MAKNOD 


v A2*4D 1 as t F6 i iv 


Figure 105. Addtional Data Altered if DESCR6 is Given 


Programming Notes 


1. As indicated, there are two forms of MAKNOD. ; If DESCR6 is given, say: 
additional descriptor is modified, but otherwise the two forms are the same. 


2. DESCR1 must be: changed last since DESCR6 may be the same descriptor as 
DESCR1. 


3. MAKNOD is used only for constructing patterns. 


86 


- 63. __MNREAL _ (minus_real_ number 


— 


Seat ; 


en as, | 
MNREAL DESCR1,DESCR2 | 


MNREAL is used to change the sign of a real number. See figures 106 and 


107. 


DESCR2 ! R { F | Vv. 4 


Figure 106. Data Input to MNREAL 


DEScR1 {| =R { =F | vt 


Figure 107. Data Altered by MNREAL 


Programming Notes 


1. R may be negative. 


2. See alsc MNSINT, ADREAL, DVREAL, EXREAL, MPREAL, and SBREAL. 


=) 
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64. MNSINT (minus integer) 


Ws : i : z 
| _ MNSINT DESCR1,DESCR2,FAILURE,SUCCESS | 
yn a a Ce ET a ee A | 


‘MNSINT is used to change the sign of an integer. 
If -I exceeds the maximum integer, transfer is to FAILURE. 


Otherwise transfer is to SUCCESS. See figures 108 and 109. 


DESCR2 | It 1 F i V {| 
ee CS eae ee | 


Figure 108. Data Input to MNSINT | 


DESCR1 i ot i £ ! v i. 
a 


Figure 109. Data Altered by MNSINT 
Programming Notes 
1. %Imay be negative. 


2. See also MNREAL. 
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65.__MOVA __ (move address) a A 


—_——— 
! MOVA DESCR1,DESCR2 | 
rnd 


MOVA. is. used to move an address field from one descriptor to another. 
figures 110 and 111. . 


DESCR2 1 A { { { 
ee een Sean | 


Figure 110. Data Input to MOVA 


DESCR1 { 


» 


Figure 111. Data Altered by MOVA 


Programming Notes 
41. See also MOVD and MOVV. 


See 
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56. MOVELK (move _ block of descriptors) 


Se SS Sse 
{ MOVBLK DESCR1,DESCR2,DESCR3 | — » 
(EEE a re ee a ee ATE! | .: ‘isgqugr tt 


MOVBLK is used to move (copy) a block of descriptors. See figures 112 and 
113. | . _ 


DESCR1 | At | | 
DESCR2 i A2 i { { 


DESCR3 | D*N | { { 


, 
A2+D | A21 { F21 { V21 1 


A2+ (D*N) ! A2N { F2N | V2N | 


Figure 112. Data Input to MOVBLK S 
4 


\ 
A1l+#D j A21 { F21 | Vv21 | 


Al+(D*N} A2N | F2N | Nf 


Figure 113. Data Altered by MOVBLK 
Programming Notes 
1. Note that the descriptor at Al is not altered. 
2. The area into which the move is made may overlap the area from which the 
move is made. This only occurs when A1 is less than A2. Consequently, 


descriptors must be moved one at a time starting at the first descriptor in the 
diagram. 
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67.__MOVD (move descriptor) 


on. 
Nel MOVD DESCR1,DESCR2 | 
ie t ‘ — Re ee 8 


MOVD is. used to move a 
figures 114 and 115. 


DESCR2 { A 1 F i 


descriptor from one location to another. 


V 1 


Figure 114. Data Input to MOVD 


SSE 


DESCR1 | A | EF \ 


v i 


es an a 


Figure 115. 


Programming Notes 
1. See also MOVA and MOVV. 


Data Altered by MOVD 


see 


91 


68. _MOVDIC (move descriptor indirect with constant offset) 


aaa a | 
i MOVDIC DESCR1,N1,DESCR2,N2 | 
bee eel 


MOVDIC is used to move a descriptor which is indirectly specified 
offset constant. See figures 116 and 117. 


DESCR1 { Al | | { 
DESCR2 { A2 { { a | 


A24+N2 — { A { z i Vv 1 


A1+N1 1 A { E i Vv | 


Figure 117. Data Altered by MOVDIC. 


. Proaqrammindg Notes 
1. See also MOVD, GETDC, and PUTDC. 
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_ £9. MOVV (mgve_value field) 


~~ 
one’ | MOVV =‘ DESCR1,DESCR2 | 
| eee eer eae 


MOVV is used to move a value field from one descriptor to another. See _ 
figures 118 and 119. | | 


DESCR2 | | { Vv I 


Figure 118. Data Input to MOVV 


DESCR1 | { i Vv i 


Figure 119. Data Altered by MOVV 


Programming Notes 
1. See also MOVA and MOVD. 


Pee 
a) 


93 


10. _MPREAL (mulitply real numbers) 


Pre we ep Ge Ok Aegean eee ET re gt one eee Ee eg Op eet ae eeg a eae gure aie as call 
{ MPREAL DESCR1,DESCR2,DESCR3,FAILURE,SUCCESS | am ; 


Sb Clad ce f 
Bn eereenenenaneeren-astineeymensnaneeniegsninen-namnsttinetmtategari nti Nhe en reereryn ens snmntne—eaenee-srenenaineimruemarsosrsnssieronll , ‘ “hit ea v 


MPREAL is used to multiply two real numbers. See figures 120 and 121. 


If the result is out of the range available for real numbers, transfer 
is to FAILURE. 


Otherwise transfer is to SUCCESS. 


DESCR2 {| R2 $ F2 | v2. J 
DESCR3 {| 3 | 
Figure 120. Data Input to MPREAL 


DESCR1 | R2*R3 fk £F2 | v2 


| cee ES CER TE SNES COMER e ner SEE | 

Figure 121. Data Altered by MPREAL 
. : | So 
Programming Notes : | | : . 


1. See also ADREAL, DVREAL, EXREAL, MNREAL, and SBREAL. 
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11, _MSTIME (get millisecond time) 


SoS ea en a = cee 
{ ' MSTIME DESCR | 
nena eesreisamnenenenseerennenanensnsseenenrensintinienteesrasnennemnasmenrseisinnmal 


MSTIME is used to get the millisecond time. See figure 122. 


ea, eS REED (UR aii areas | 


DESCR | TIME | 0 { Q i 


| ee ee ee | 


Figure 122. Data Altered by MSTIME 


Programming Notes 


1. The origin with respect to which the time is obtained is not important. The 
SNOBOL4Y system deals only with differences in times. 


2- The time units should be milliseconds, but accuracy is not critical. 


3. MSTIME is used in program tracing, the TIME function, and in statistics 
printed upon termination of a SNOBOL4 run. . 


4%, It is not critically important that MSTIME be implemented as such. If it is 
not, the address field of DESCR should be set to zero also. 


5. See also INIT. 
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125 .MULT.__ (multiply integers) 


MULT DESCR1, DESCR2 , DESCR3 , FAILURE,SUCCESS | 


enna seen pepstatin fF grictp s- strselfaepePsnsrevEnssiaee-anene-nponteresutseserisasonaninnesiannmenaesarl 


MULT is used to multiply two integers. See figures 123 and 124. 


DESCR2 


DESCR3 


DESCR1 


Otherwise, transfer is to SUCCESS. 


Figure 123. Data 


In the event of overflow, transfer is to FAILUR=. 


Input to MULT 


| I2*13 | F2 | v2 4 


Figure 124. Data Altered by MULT 


Programming Notes 


1. The test for success and failure is used in only two calls 
Hence the code to make the check is not needed in most cases. 


2. DESCR1 and DESCR2 are often the same. 


36 See also MULTC and DIVIDE. . 
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*, 


> | 


of this macro. 


73, MULTC __ (multiply address _ by constant) 


oo _______ 4 
{ MULTC DESCR1,DESCR2,N | — 
Ren 


MULTC is used to multiply an integer by a constant. See figures 125 and 
126. 


DESCR2 { I i i i 
Figure 125. Data Input to MULTC 


ro: a. aes 
DESCR1 ; ran 0 0 


eee Deere reali areas Une eee er eee 
Figure 126. Data Aitered by MULTC 
Programming Notes | 
1. I * N never exceeds the range available for integers. 
2. DESCR1 and DESCR2 are often the same. | 


3. WN is often D, which typically may be implemented by a shift, or simply by no 
operation if D is 1 fora particular machine. 


4. See also MULT. 
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74. ORDVS order variable storage) 


Ce eee 
I ORDVST | , , | a 
a rrr 


- ORDVST is used to alphabetically order variables in SNOBOL4 dynamic 
storage. Figure 127 shows the organizational structure of SNOBOL4 variable 
storage consisting of OBSIZ linked chains. The links should be rearranged to 
put the strings in alphabetical order. 


bin address offset 


from OBSTRT 
last 
variable 
in bin a an ae wo : . j 
| string ‘ Oo 0 
ae ae ts Similar chain—<—--------1 oD 
self string | for bin 1 . | | 
pointer | (length 7 ae — 
title | ~ , | — : 
value | — : 
label : . . e 
link 
space for 


string as 


l similar chain <~-— OBSIZ~1 — (OBSIZ-1)#D 
for bin OBSIZ-1 

needed . 

| 


/ 
to next ascension ae 
variable number 
(0 for last (orders | 
on chain) variables 


on chain) 


VARIABLE 


Figure 127. Organization of Variable Storage 
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Programming Notes 


1. ORDVST is used only in ordering variables for a programmer-requested 
post-mortem dump of variable storage. ORDVST need not be implemented as _ such, 
but may simply perform no operation. In this case, the post-mortem dump will 
not be alphabetized, but will be otherwise correct. 


2. If ORDVST is implemented, it is easiest to put all variables in one long 
chain starting at OBSTRT. The address fields of the descriptors 


should then be set to zero. 


3. Since dynamic storage may contain many variables, some care must be taken to 
assure that the sorting procedure is not excessively slow. Variables whose 
values are null strings (zero address fields and value fields containing the 
global symbol S) may be omitted from the sort. In fact they should be omitted 
if a sort with factorial properties (such as an exchange sort) is used. A sort 
with linear properties such as a radix sort is more desirable but more 


i. complicated. 


4. The ascension number, M, is computed by VARID (q.v.). 
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75. OUTPUT (output record) 


RR eet : we 
- QUTPUT DESCR, FORMAT, (DESCR1,..-,DESCRN) | — | on 


ey pet 


OUTPUT is used to output a list’ of items according to FORMAT. See figure 
128. The output is put on the file associated with unit reference number I. 
The format C1...CL may specify literals and the conversion of integers and real 
numbers given in the address fields A1l,...,AN. 


DESCR i I i i { 
FORMAT 1 Cl | cee | CL | 


_DESCR1 {| at I i Od 


DESCRN j AN 1 i 1 


Figure 128. Data Input to OUTPUT ; e) 
Programming Notes | 


1. See also STPRNT. 
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76, PLUGTE (plug syntax table) 


— 
{ - PLUGIB TABLE,KEY,SPEC | 


| pn TE | 


PLUGTB is used to set selected indicator fields in the entries of a syntax 


table toa constant. KEY may be one of four values: 


CONTIN 
ERROR 
STOP 
STOPSH 
The indicator fields of entries corresponding to C1,...,CL are set to T 


where T is the indicator which corresponds to the value of KEY. See figures 
129, 130 and 131. 


SPEC { A 1 1 1 O° 1 L i 


[ ee Se nee | 


Figure 129. Data Input to PLUGTB 


 ——— ea eres | 
TABLE+E*C1 | \ { 


tr 


TABLEtE*CL] i fit I 
| Ee AEE Nee | 


Figure 130. Data Altered by PLUGTB for ERROR, STOP, or STOPSH 


oe a rer 
TABLE+E*C1] TABLE [| Q {. 1 


ET 


ee SE ee | 


TABLE+E*CL| TABLE | Q | 


Figure 131. Data Altered by PLUGTB for CONTIN 
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Programming Notes 
1. See the section which discusses the structure of syntax tables. 


2. See also CLERTB. 
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77, POP {pop descriptors from stack) 


rte eterna cette 
| - POP (DESCR1,-.2.,DESCRN) j| 
eT | 


POP is used to pop a list of descriptors off the system stack. See figures 
132 and 133. ) 


CSTACK 1 oA { i { 


A [ Al. f F1 { v1 | 


ee ee ny 
A~-D*(N-1) | AN | FN { .VN | 


et en en ee ee 
CSTACK 1 A-(N*D) | —_ 1 { 


DESCR1 i al {  F1 }oew | 


OS eae , —> a Recital 
| CaS Tie Co ae eee | 
DESCRN | aN { EN I~ vN | 


a 
Figure 133. Data Altered by POP 


Programming Notes 


1. If A- (N * D) < STACK, stack underflow occurs. This condition indicates a 
programming error in the implementation of the macro language. An appropriate 
diagnostic message indicating an error may be obtained by tr ansferring to the 
global location INTR10 when the condition is detected. 
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718. PROC (procedure entry) 


coo 
{| LOoC1 PROC (LOoc2} | 
De coe cree canine inners eatcastclD 


PROC is used, to identify a procedure entry point. If L0oc2 is omitted, LOC1 
is the primary procedure entry point. If LOC2 is present, LOC1 is a secondary 
entry point in the procedure with primary entry point LOC2. —_ 


Programming Notes 


1. “Procedure entry points may be referred to by RCALL, BRANIC, or BRANCH (in 
its two argument form). 


2. In most implementations, PROC will ‘have no functional use and may ke 
implemented as LHERE. For machines which have a severely limited program basing 


range (such as the IBM System/360), PROC may be used to perform required basing 
operations. ee 
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79. __PSTACK (post stack position) 


Ce ee en ere 
1 _ PSTACK DESCR | 
i eee 


PSTACK is used to post the current stack position. See figures 134 and 


CSTACK { A { i t 


Figure 134. Data Input to PSTACK 


DESCR | Ax | oO ¢ @ f 
[ Ee SE En | 


Figure 135. Data Altered by PSTACK 


Programming Notes 
1. See also ISTACK. 
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80. PUSH (push descriptors onto stack) 


sy 


PUSH (DESCR1,.<.+,DESCRN) | 


PUSH is used to push a List of descriptors onto the system stack. See 
figures 136 and it: 


CSTACK 1 A | { 1 


DESCR1 | Al sf F1 i v1 { 


DESCRIN { AN i FN i VN { 


Figure 136. Data Input to PUSH 


CSTACK = |. At {D¥N) | 7 — o 


A+D i Al { Fl { v1 | 


A+(D*N) 1 AN 1 §N i vwN” 4 


Figure 137. Data Altered by PUSH 
Programmjng Notes 
1. If A+ (D * N) > STACK + STSIZE, stack overflow occurs. Transfer should be 
made to the global location OVER which will result in an appropriate error 
termination. 


2. See also SPUSH, POP, and SPOP. 
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* 81. _PUTAC (put address with offset constant) 


rr ee er pe eee ee ee 
{ PUTAC DESCR1,N,DESCR2 | — 
ee cotton odin aoc nai oie ac seonaimnsentnimaretaimmel 


PUTAC is used to put an address field into a descriptor with a constant 
offset. See figures 138 and 139. 


DESCR1 { At { j { 
DESCR2 ( A2 | { Z| 


Figure 138. Data Input to PUTAC 


A1+N 1 A2 l { | 
a a ne ee | 


Figure 139. Data Altered by PUTAC 


o Programming Notes 
_ a 
. 1. See also GETAC, PUTVC, PUTD, and PUTDC. 
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82. _PUTD (put_descriptor) 


Sr 
{ PUTD DESCR1, DESCR2,DESCR3 | 
PUTD is used to put a descriptor. See figures 140 and 141. 


DESCR1 { A1 { | { 
DESCR2 | A2 { | 1 
DESCR3 | A | F { Ve I 


Figure 140. Data Input to PUTD 


AI4A2 ss ft wUC Ai‘ U!™:é‘CSSSC‘<‘ |! UY 


Figure 141. Data Altered by PUTD 


- Proqramming Notes 
4. See also PUTDC, PUTAC, PUTVC, and GETD. 
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83, PUTDC (put descriptor with constant offset) 


Op ee ae a ee ee ee 
1 PUTDC DESCR1,N,DESCR2 | 
Bere ceceenesenetssenensocenysteettseraemsnanataeetanteenentnuannahn eter iespaetaonranansancancnall 


PUTDC is used to put a descriptor with an offset constant. 
and 143. 


DESCR1 | Al { { | 
DESCR2 \ A { F I Vv { 


Figure 142. Data Input to PUTDC 


A1+N 1 E. l v I 
a at te ey 


tp 


Figure 143. Data Altered by PUTDC 


Programming Notes 
1. See also PUTD, PUTAC, PUTVC, and GETD. 


See figures 142 
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84.  PUTLG (put specifier length) 


i PUTLG SPEC,DESCR | | ee, 


PUTLG is used to put a length into a specifier. See figures 144 and 145. 


DESCR 1 - I { I 1 
: : en te * a ; 


Figure 144. Data Input to PUTLG 


SPEC | { 1 | re re | 
a nn ann Sn See NE | 


Figure 145. Data Altered by PUTLG 
Programming Notes 
1. 1 is always nonnegative. 


2. See also GETLG. 
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85. PUTSPC (put specifier with offset constant) 


———————————————eee—e—oo 
! PUTSPC DESCR,N,SPEC | 
ene a a Re ee oe eS | 


PUTSPC is used to put a specifier. See figures 7146 anc VAs. 


DESCR {-. At { | { 


SPEC | A { F I Vv i Oo t L { 


Ip 


At+N | E i v { Q ! L 1 


Figure 147. Data Altered by PUTSPC 


Programming Notes 
Cc 1. See also GETSPC, 


86. PUTVC (put value field with 


PUTVC DESCR1,N,DESCR2 {| 


offset constant) 


putTvc is used to put a value field into a descriptor with an offset 
constant. See figures 148 and 149. | 


DESCR1 


DESCR2 


A+N 


Programming Notes 


Figure 148. Data Lnput to PUTVC 


I ee Sa | 
( dl i ¥ I 


: 


Figure 149. Data Altered by PUTVC 


~ 


1. See also PUTAC, PUTDC, and PUTD. 
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87. RCALL (recursive call) 


rcs re es en I Pe ae Ee eae ee EE ert ge ee ee ee a ee ee ee ee 
\ RCALL DESCR, PROC, (DESCR1,...,DESCRN), (LOC1,..-,LOCM) | 


capes ne ersecemseneeoreenennes nents SSE AS SPE rs shih hs ft ch sas ernment eeonrienetesnsmondacesmaretpusessarall 


RCALL is used to perform a recursive call. DESCR is the descriptor which 
receives value upon return. PROC is the procedure being called. DESCRI,.e.e, 
DESCRN are descriptors whose values are passed to PROC. LOC1,...,LOCM are 
locations to transfer to upon return according to the return exit signalled. 
See figures 150, 151 and 152. The old stack pointer (AO) is saved on the stack, 
the current stack pointer becomes the old stack pointer, and a new current stack 
pointer is generated as indicated. The return location LOC is saved on the 
stack so that the return can be properly made. The values of the arguments 
DESCR1,.--,DESCRN are placed on the _ stack. Note that their order is the 
opposite of the order that would be obtained by using PUSH. 


At the return location LOC frogram similar to that shown should be 
assembled. OP is intended to represent an instruction which stores the value 
returned by PROC in DESCR. 


CSTACK { A { t l 
OSTACK | AO { { { 


DESCR1 { Al i FI | v1 1 


DESCRN { AN { FN | VN | 


Figure 150. Data Input to RCALL 


OF 


A+D | AQ “|. Q ar | 
A+2D 7 Loc en!) | Q 1 


A+3D | AN { 


A+D*(2+N) | Ai i F1 | v1 _ 


aaa aa ama ama: (Re aa 

CSTACK {A+ (2+N) ¥D] I { 

OSTACK | A 1 t { 
Figure 151. Data Altered by RCALL 


LOC OP DESCR1 | | a | 
| BRANCH LOC1 : | | (o 


Ld Ld 


BRANCH LOCM 
Figure 152. Return Code at LOC 


Programming Notes See ane 


1. RCALL and RRTURN are used in éoubination: and their relation to each other 
must be thoroughly understood. 


2. Ordinarily OP is a store instruction to obtain the value returned by RRTURN. 


3. DESCR may be omitted. In this case, any value returned by RRTURN is ignored 
and OP should perform no operation. 


4. (DESCR1,..e.,DESCRN) may be entirely omitted. In this case N should be taken 
to be zero in interpreting the figures. 


5. Any of the locations LOC1,...,LOCM may be omitted. As in the case of 
operations with omitted conditional branches, control then passes to the 
operation following RCALL. 


6. The return indicated by RRTURN may be M + 1 in which case control is passed 
to the operation following RCALL. 8 
\ 


7. The return indicated by RRTURN is never greater than M + 1. 
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8. RCALL typically must save program state information. On the IBM 360 this 
consists of the location LOC and a base register for the procedure containing 
the RCALL. This information is pushed onto the stack. In pushing information 
on the stack, care must be taken to observe the rules concerning the use of 
descriptors. The rest of the SNOBOL4 system treats the stack as descriptors, 
and the flag fields of descriptors used to save program state information must 
be set to zero. 


9. See also SELBRA. 


0 


88, RCOMP (real comparison) 
—— : am 
{ RCOMP .DESCR1,DESCR2,GT,EQ,LT |. | | sill 


Dearest ese neeen eeneec ana eninaenmmside i amenertnteanaransvannapapsamanessenne-setrssransemanemnanencemasrel 


RCOMP is used to compare two real numbers. See figure 153. 


If R1 > R2 transfer is to GT. Pass 
If R1 = R2 transfer is to EQ. 


If R1 < R2 transfer is to Lt. 


DESCR1 { R1 | i | 
DESCR2 | R2 ! | { 


Figure 153. Data Input to RCOMP 


Programming Notes 
4. See also ACOMP and LCOMP. 


89. REALST (convert real number to string) 


Sr rt ee 
| REALST SPEC,DESCR | 
ee 


REALST is used to convert a real number into a _ specified 
figures 154 and 155. 


DESCR ij RR { | { 


m 
te 
ro) 
les] 
ic 
by 
| 
ty 
bd 
oO 
io 
{oO 


wo 
q 
rj 
raj 
A 
Q 
aul 

; 
Q 


Figure 155. Data Altered by REALST 


string. 


see 
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Programming Notes 


1. C1...CL should represent the real number R aS a "normalized" string 
containing a decimal rfoint and having at least one digit before the decimal 
point, zeroes being added as necessary. If R is negative, the string should 
begin with a minus sign. For compatability with real literals and data tybe 
conversions, the real number should not be represented with an exponent, 
aithough very large or small numbers may require a large number of characters 
for their representation. 


26 The number of digits (and hence the size of BUFFER) required is machine 
depéndent and depends on the range available for real numbers. 


3. BUFFER is local to. REALST and its contents may be overwritten by a 
subsequent use Of REALST. Oe . 


4, See also INTSPC and. SPREAL... 


90, REMSP (specify remaining string) 


So rr ee ee ee ae ee 
| REMSP SPEC1,SPEC2,SPEC3 | 
eres cneesrn ten reeteetpsnagupeeuniastatssnseso ce nemetsivesouatsaraeas-aanerenrrennirasnsnensnenes amanracalt 


REMSP is used to obtain a remainder specifier resulting from the deletion 
of a given length. See figures 156 and 157. 


SPEC 2 I A2 | F2 | V2 | 02 | L2 | 
SPEC3 { { | { { L3 | 


Figure 156. Data Input to REMSP 


a2 F | v2  O24L3 | L2-b3 | 


P i. 2 4 1 5 


th: 


SPEC1 1 a | Fz 


Figure 157. Data Altered by REMSP 
Programming Notes | 
1. SPEC1 and SPEC3 may be the same. 
2. L2- L3 is never negative. 


3. See also FSHRTN. 


91, RESETF (reset _flaq) 


A Ea CRE | ’ 
! RESETF DESCR, FLAG j 7 e : rd 


| | 


RESETF is used to reset (delete) a flag from a descriptor. See figures 158 
and 159. . 


DESCR j | F { { 


Figure 158. Data Input to RESETF 
Ce ee ee ee ee ee 


DESCR { { FoFLAG | | 
ae Rd 


Figure 159. Data Aitered by RESETF 


Programming Notes 


1. Only FLAG is removed from the flags -in F. Any other flags are left 
untouched. a 7 


2. If F does not contain FLAG, no data is altered. oo 6 


3. See also RSETFI and SETFI. 
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~ 92. REWIND. (rewind file) 
‘es 


am Sa REREAD | 
{ REWIND DESCR | 


[TD | 


REWIND is used to rewind the file associated with the unit reference number 
I. See figure 160. 


DESCR | I { { { 


Figure 160. Data Input to REWIND 
Programming Notes 


1. Refer to the section on input and output for a discussion of unit reference 
numbers. 


2. See also BKSPCE and ENFILE. 
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93. INT (convert real numbexy to integer) 


tA 
i RLINT DESCR1, DESCR2, FAILURE, SUCCESS | . iad 
eee ee eevee tee fc set eer 


RLINT is used to convert a real number to an integer. See figures 161 and 
162. . . 


If the magnitude of R exceeds the magnitude of the largest integer, 
trandfer is to FAILURE. 


Otherwise transfer is to SUCCESS. 


DESCR1 I R I { 1 


[Sa ene nOS | 


Figure 161. Data Input to RLINT 


QQ Thee 
DESCR2 | I(R) | OF ft de 1 


Figure 162. Data Altered by RLINT 
Programming Notes . . © 
1. I(R) is the integer equivalent of the real number R. | 
2. The fraction ae oe R is discarded. 


3. Ic stands for the integer data type code. 


~, 


eal 
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94. _ RPLACE (replace characters) . 


SRA BA SC aR GR | 
{ RPLACE SPEC1,SPEC2,SPEC3 | 
| en | 


RPLACE is used to replace characters ina string. See figures 163 and 164. 
SPEC2 specifies a set of characters to be replaced. SPEC3 specifies the 
replacement to be made for the characters specified by SPEC2. The replacement 
is described by the following rules. For I = 1,...,L 


F (CI) CI if CI # C23 for any J (1 &J % 22) 


F (CI) C3J if CI = C23 for some J (1@ 7 £12) 


| RE a | 


A1+01 {ci 1] coe ic { 
| ene Len ee | 

. Cee ore a ee ee ee ae 
A2+02 | C21 | see fC2L2 | 


Se 
A3+03 { C31 | eee {C3L2 | 
[ ERE) See me cere ACen 


Figure 163. Data Input to RPLACE 


SC: Pe ke pmiraae | 
A1+01 IF(CI 1 see JF (CL)I 
| Ee Sn See | 


Figure 164. Data Altered by RPLACE 
Programming Notes 
1. Lmay be zero. 


2. If there are duplicate characters in C21...C2L2, replacement should be made 
corresponding to the last instance of the character. That is, if 


(C2I = C27 = «66 = C2K (I < J < K) 
then 


F(CI) = C3K 


3. RPLACE is used only in the REPLACE function. It is not essential that 
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RPLACE be implemented as such. If it is not, RPLACE should transfer to UNDF to 
provide an appropriate error comment. 


ia 


i 
anol 
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95.__RRTURN__ (recursive return) 


Qa ee ee ee 
j RRTURN DESCR,N | 
| eee 


RRTURN is used to return from a recursive call. DESCR is the descriptor 
whose value is returned. See figures 165, 166 and _ 167. The stack is 
repositioned as shown. 


At the location LOC program similar to that shown has been assembled by 
RCALL. OP represents an instruction which is used by RRTURN to return the value 
of DESCR. 


OSTACK " A i I i 
A+D 1 AO 1 ( i 


A+2D | LOC { . | i 


‘DESCR 1 oat {| F1 , vi 


Figure 165. Data Input to RRTURN 


CSTACK 1 A 1 . 1 { 


OSTACK | AQ 1 { 1. 


DESCR1 | Al { Fi { V1 i 


Figure 166. Data Altered by RRTURN 
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Lce OP DESCR1 
BRANCH LOC1 


BRANCH LOCM 
Figure 167. Return Code at LOC. 
Programming Notes 


Vs -RCALL and RRTURN are used in combination, and their relation to each other 
must be thoroughly understood. 


2. DESCR may be omitted. In this case, OP should not be executed. 
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96, _RSETFI_ (reset flag indirect) 


CC ee 
| RSETFI DESCR,FLAG | 


RSETFI is used to reset (delete) a flag from a descriptor which is 


specified indirectly. See figures 168 and 169. 


DESCR | A { { | 


Figure 168. Data Input to RSETFI 


Ce aaa eee 
A 1 | FEFLAG | | 
a Sanna SommneneeNenn a 
Figure 169. Data Altered by RSETFI 
Progr j tes 


1. Only FLAG is removed from the flags in F. Any other flags are 
untouched. 


2. If F does not contain FLAG, no data is altered. 


3. See also RESETF and SETFI. 


left 
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97. _SBREAL (subtract real numbers) 


; a 
H SBREAL DESCR1, DESCR2,DESCR3,FAILURE,SUCCESS | = ae 
eee enero earn oettatnaRea enn remanence 
SBREAL is used to subtract one real number from another. See figures 170 
If the result is out of the range available for real numbers, transfer 
is to FAILURE. 
Otherwise transfer is to success. 
i re ae 
DESCR2 ] R2 { F2 i] V2 
a a San | 
DESCR3 j R3 | ! | 
a ne Se | 
Figure 170. Data Input to SBREAL 
1 -— z - 7v aoe - - _ v — < s | 
DESCR1 { R2-R3 | £4£F2 i v2 { 
Sn BO ea | me : : 
Figure 171. Data Altered by SBREAL a 


Programming Notes 


1. See also ADREAL, CVREAL, EXREAL, MNREAL, and MPREAL. 
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ees SELBRA (select branch point) 


O 


OS en ee ee 
SELBRA DESCR, (LOC1,«-.,LOCN) | 
nen cece entrench a tne ee nanan anennennenen cuaremaeinasnentnmnioal 


SELBRA is used to alter the flow of program control by selecting a location 
from a list and branching to it. See figure 172. Transfer is to LOCI 
corresponding to I. 


DESCR { I { I I 


Figure 172. Data Input to SELBRA 
Programming Notes 
1. Any of the locations may be omitted. As in the case of operations with 
omitted conditional branches, control then pagses to the operation following 
SELBRA. 7” air . 
2. If I = N + 1, control is passed to the operation following SELBRA. 


3. I is always in the range 1 <I < N+ 1. For debugging purposes, it may be 
useful to verify that I is within this range. . 
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99.__ SETAC (set_address to constant) 


{ SETAC  DESCR,N . i | Ss 


Se ee | 


SETAC is used to set the address field of a descriptor to a constant. See 
figure 173. | 


DESCR 1 NOI i i 
- t 4 , ; 
Figure 173. Data Altered by SETAC . 


Proaramming Notes 


a 


i. N may be a relocatable address. 
2. Nis often 0, 1, or D. 
3. N is never negative. 


4. See also SETVC, SETLC, and SETAV. 
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100, SETAV (set _ address from value field) | 


a SR ae EEE | 
| SETAV DESCR1,DESCR2 | 


[ann | 


SETAV sets the address field of one descriptor from the 
another. See figure 174. . 


DESCR2 i i I V | 


| eee SS Se ee 


Figure 174. Data Input to SETAV 


DESCR1 1. 4 i Q i Q i 


Figure 175. Data Altered by SETAV 
Programming Notes 
1. See also SETAC. 


value 


field of 
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101, SETE (set_flaq) 


to ee ay Oe 
{ SETF DESCR, FLAG | 
| 


‘ 


‘> 


SETF is used to set (add) a flag in the flag field of DESCR. See figures 


176 and 177. 


DESCR i { F { i 
es t 2 ee 5 


Figure 176. Data Input to SETF 


DESCR 4 { FeFLAG | Gu Gitede Sout aa s 


Snes 


Figure 177. Data Altered by SETF 


Programming Notes 


1. FLAG is added to the flags already present in F. 
untouched. . 


2. d%If F already contains FLAG, no data is altered. 


3. See also SETFI. 
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The other flags are. left 


O 


102. _ SETFI] (set_flagq indjrect) 


Ce re ee a er ee ere ae pees 
{ SETFI DESCR,FLAG | 
creer erne eee eatenareceemenenrenenenraninnnninenanecenncnsmameowesesnsstell 


SETFI is used. to set (add) a flag in the flag field of a descriptor 
specified indirectly. See figures 178 and 179. 7 


DESCR | A I i { 


Figure 178. Data Input to SETFI 


+  Pigure 179. Data Altered by SETFI 


Programming Notes 


1. FLAG is added to the flags already present in F. The other flags are left 
untouched. ; . : 


2. If F already contains FLAG, no data is altered. 


3. See also SETF and RSETFI. 
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103. SETLC (set length of specifier to constant) 


| SETLC SPEC,N | ; ie 


J ne | 


SETIC is used.to set the length of a specifier to a constant. see figure 


SPEC | { 1 { | oN | 


Figure 180. Data Altered by SETLC 
Programming Notes 
1. N is never negative. 
2. N is often 0. 


3. See also SETAC. 
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é 104, SETSIZ (set size) 


D 


corre ______ 
{ SETSIZ DESCR1,DESCR2 | 


SETSIZ is used to set the size into the value field of a title descriptor. 


See figures 181 and 182. 


DESCR1 A | | | 
DESCR2 { ro | ! 


Figure 181. Data Input to SETSIZ 


+ Figure 182. Data Altered by SETSIZ 
programming Notes 
14. is always positive and small enough to fit into the value field, 


2. See also GETSIZ. 
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105, SETSP_ {set specifier) 
(am 


” Gn ame a ESSER - ch 
| SETSP SPEC1,SPEC2 | : . veel? 
ne cree neers nenerennenmrernencereaennamsanranrasnsnsonamansasenanpnenenreevaameel : = 


SETSP is used-to set one specifier equal to another. See figures 183 and 
184. 


SPEC 2 { A i F \ V " O 2 +f Lk i 


SPEC1 i A t F ff WY tft @F tf Bt 
Q L 


Figure 184. Data Altered by SETSP 
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106, _ SETVA (set value field from address) 


SETVA DESCR1,DESCR2 | 
4 aio 


SETVA is used to set the valte field of one descriptor from the 


field of another. . See figures 185 and 186. 


DESCR2 


DESCR1 


v7) 


Figure 185. Data Input to SETVA 


SSS ee ee 
! { { z { 
ee ne 


Figure 186. Data Altered by SETVA 


Programming Notes 


1. I is always positive and small enough to fit into the value field. 


4 


2. See also SETAV and SETVC. 


address 
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107, SETVC (set _ value to constant) 


ai! 


aaa aS RE TR 
i SETVC  DESCR,N | 


SETVC is used’ to set the value field of a déscriptor to a constant. See 
figure 187. . : ; : 


AeA. Sein Conn Taner ame a aaa 
DESCR 1. I l N { 
Figure 187. Data Altered by SETVC 
Programming Notes | 
1. N is always positive and small enough to fit into the value field. 


2. See also SETVA and SETAC. 
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108, 5S 


and 


shorten specifier) 


SHORTN SPEC,N |} 
a a 


SHORTN is used to shorten the specification of a string. 


SPEC ! i { i i L i 
[ Sa Se ee | 
Figure 188. Data Input to SHORTN 
_ SS re a ae 
SPEC t i | 3 i Gon 1 
A nnn Snel ACen Sea OR See eee Seen ea 
Figure 189. Data Altered by SHORTN 
Programming Notes 


7 


1. L- Nis never negative. 


See figures 


188 
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109, SPCINT (convert specifier to integer) 


ee Nee ee eT eae ee a Re et eT Haat? 
H SPCINT DESCR,SPEC, FAILURE,SUCCESS | 
, Cn ne | 


SPCINT is used to convert a specified string to an integer. See figures 
190 and 191. I is a signed integer resulting from the conversion of the string 
Ci...Ch. . 


If C1...CL does not represent an integer or if the integer it represents 
is too large to fit the. address field, transfer is to FAILURE. 


Otherwise transfer is to SUCCESS. 


SPEC | A . | { t O.-. {| L. | 


Ato ;oct 4 bios Cu | 
i es ee | 


Figure 190. Data Input to SPCINT 


DEcR ft fF ¢ @ 4 He | oe) 
ee nen an aais | 


Figure 191. Lata Altered by SPCINT 
Programming Notes 
1. Ic stands for the code for the integer data type. 
2. %C1l...CL may begin with ‘a sign (plus or minus) and may contain indefinite | 
number of leading zeros. Consequently the value of L itself does not determine 
whether the integer represented is too large to fit into an address field. 
3. If L = 0, I should be the integer 0. 


4. See also INTSPC and SPREAL. 
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} Loc 


110, SPEC {assemble specifier) 
Wes - 


SPEC AeF,V,O,L | 


ee 


LOC 


SPEC is used to assemble a specifier. 


1 A { F { V i 


See figure 192. 


2) { L 


Figure 192. Data Assembled by SPEC 
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117, SPOP {pop spec] fier from stack) 


: | me 
SPOP (SPEC1,..-,SPECN) | | tom 
ae Ce eee eRe meee eee en CT WE Re Ree NT | 


SPOP is used to pop a list of specifiers from the system stack. See 
figures 193 and 194. a 2 


CSTACK | A | 1. i 


A+D-S { Al 1 F1 ! v1 i ois | L1 Il 


A+D- (N*¥S) | ‘AN | FN j VN | ON j LN | 
Le een! een aN AARNE SEN CRam ne Serna Samnen eases | 


Figure 193. Data Input to SPOP 


CSTACK | A-={N*S) | { { 


I esrcrmnrrnensensscre-c } 
SPEC1 “| Al it Fi 1! vi ' ot i bi \ 
| AEN LR ORAS NACE OA Lean MAREE ES cna TAIEAS UNS L a ATeAEN ONE | 


-SPECN } AN {| EN I> WN _.1 ON 1 oN i 
; ROE. KORO EEC SoRO a aCe Deena! ae ae Ieee ree [Paine nT eT EOE TINO IE | 


Figure 194. Data Altered by SPOP 


Programming Notes 


1. If A- (N * S) < STACK, stack underflow occurs. This condition indicates a 
programming error in the implementation of the macro language. An appropriate 
error termination for this error may be obtained by transferring to the global 
location INTR10 when the condition is detected. 


2. See also POP, SPUSH, and PUSH. 


@ 
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_ 1412, SPREAL (convert specified string to real number) 
ee ; anne eee ee ene ane 


ee eg eee ew 
| SPREAL DESCR,SPEC,FAILURE,SUCCESS | 
ce nnn pe i ni ginal 


SPREAL is used to convert a specified string into a real number. See 
figures 195 and 196. R is a signed real number resulting from the conversion of 
the string C1...CL. 


If C1...CL does not represent a real number, or if the real number 
represents is out of the range available for real numbers, transfer is 
to FAILURE. - 


Otherwise transfer is to SUCCESS. 


SPEC { A { t { 0 I Lf 
| SE Le Le Ce eas Coe eee eee | 
A+tO {ci |] wave } cL | 
ees a Se | 


Figure 195. Data Input to SPREAL 


O 


DESCR { Q { RC ! 


Figure 196. Data Altered by SPREAL 
Programming Notes 
_1. RC stands for the code for the real data type. 
2. Cl,eee,CL may begin with a sign (plus or minus) and may contain an 
indefinite number of leading zeros. C1,...,CL will contain a decimal point if 
it represents a real number, and have at least .one digit before the decimal. 
point. 


3.. If L = 0, R should be the real number 0. 


4. See also SPCINT and INTRL. 
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113, .SPUSH ush specifiers onto stack) 


(ee 
{ SPUSH (SPEC1,.22,SPECN) | 
4d a : J “ eee eee OE | 


SPUSH is used to push a list of specifiers onto the system stack. See 
figures 197 and 198. 


CSTACK j A | { i 


SPEC1. 1 at | FI } vi ;  o1 1 1 i 


SPECN 1 AN " FN 1 VN 1 ON { LN ; 


ite, 
f Y 
af 


- C@STACK { At(S*N) | i i | oo 9 


A+¢D i Al { Fi i vi i Q1 i L1 t. 


; a Sn Se Sn Se 
A+D+S*N-S | AN | EN | YN -'f| ON ¢ WW | 
i a 


| Figure 198. Data Altered by SPUSH 
Programming Notes . 
1. If A+ (S * N) > STACK + STSIZE, stack overflow occurs. Transfer should be 
made to the global location OVER which will result in an appropriate error 
termination. 


2. See also PUSH, POP, and SPOP. 
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114, STPRNT (string print) 


Co a ee eee re a ae eg a ae 
I STPRNT DESCR1,DESCR2,SPEC | 
| eee | 


STPRNT is used to print a string. See figures 199 and 200. The string 


C11...C1L is printed on the file associated with unit reference number If. 


C21...C2M is the output format. J is an integer specifying a condition 
signalled by the output routine. 


DESCR2 { A | i l 


A+D | I | i {~ 


A+2D { A2- 1 i i 

a2 | i I | M l 

A2+4D { C217 | eee { C2M | 

SPEC ! Al i { { 01 { L 1 
A1+01 { C11 f{ eos {| CIL | 


Figure 199. Data Input to STPRNT 


DESCR1 | 


Cy 


Figure 200. Data Altered by STPRNT 


Programming Notes 


1. The format C21...C2M is a FORTRAN IV format in "undigested" form. See: 
FORMAT. 


2. Both C11...C1L and C21...C2M begin at descriptor boundaries. 


3. The condition J set in the address field of DESCR1 is not used at present. 


It is intended for eventual use in indicating interrupts from a console on which 
output is being written. DESCR1 can be ignored for the present. 


&. See also OUTPUT and STREAD. 
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115, STRFAD (string read) . 


_ STREAD SPEC,DESCR,EOF,ERROR,SUCCESS | ad 


fo seeneeeenenesemene ners nanometre spsarasanet an ehnsamr eran scons 


STREAD is used to read a string. See figures 201 and 202. The string 
Ci..eCL is read from the file associated with unit reference number I. 


If a reading error occurs, transfer is to ERROR. 
If an end of file is encountered, transfer is to EOF. 


Otherwise transfer is to SUCCESS. 


Figure 201. Data Input to STREAD | | : 


A+O PCR p “ate 2 CB 


Pe ODIs: emer ee enTas een | ° & 0. 
Figure 202. Data Altered by STREAD 
Programming Notes 
1. Note that the length of the string to be read is specified by the data input 
to STREAD. If the record read is not of length L, FORTRAN IV conventions 


regarding truncation or reading of additional records should be followed. 


2. see also STPRNT. 
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116, STREAM (stream for token) 


ete 
STREAM SPECI, SPEC2, TABLE, ERROR, RUNOUT, SUCCESS 


a I 2a er ESO MS POE RAN BA ANS EAST EEN ESR REESE SOR TOOL 


STREAM is used to locate a syntactic token at the beginning of the string 
specified by SPEC2. See figures 203, 204, 205, 206, and 207. 


If there is an I (1 $ I € L) such that TI is ERROR STOP, or STOPSH, and 
J is the least such I, then 


If TJ is ERROR, transfer is to ERROR. 
If TJ is STOP or STOPSH, transfer is to SUCCESS. 
Otherwise transfer is to RUNOUT. 


In the figures that follow, J is the least value of I for which TI is STOP 
or STOPSH. 


P is the last value of P (14 1 ¢ J) which is nonzero (i.e. for which a 
put is specified in the syntax table description for the tables given). 


SPEC 2 { A { EF { Vv ! 2) i L | 
eS Le SS Sn ne eo 
Sa er ed 

A+0O { ci | eee { co jcu+1 | eee { cL | 


A2+E*C2 { A3 { T2 | P2 { 


ALt+E*CL ! {| TL | PL { 


Figure 203.. Data Input to STREAM 
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STYPE 
SPEC1 


SPEC2 


STYPE 


SPEC1 


STYPE 
SPEC1 


SPEC 2 


ar 


| (i Tea ia re | . ee i 


r aA dt F $4 Vf Qto=4 1 Ledtt 


Figure 206. Data Altered by STREAM if Termination is ERROR 


Figure 207. Data Altered by STREAM if Termination is RUNOUT 


ng Notes 


4. Termination with STOP or STOPSH may occur on the last-.character, CL. 


2. (If L 
this case the address field of STYPE should be set to 0. 
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0 (i.e. if SPECR2 specifies the null string), RUNOUT occurs. In 


N 


Sd 


0 


© 


117, STRING (assemble specified string) 


SS ee ee 
| Loc STRING 'C1...CL* | 


| eee | 


STRING is used to assemble a string and a specifier to it. See figure 208. 


LOC I A l 0 [ 0 I 0 i L 1 


CO ee 
A ci | eee i cL | 


| a a e Leene | 


Figure 208. Data Assembled by STRING 
Programming Notes 


1. Note that LOC is the location of the specifier, not the string. The string 
may immediately follow the specifier, or it may be assembled at a renote 
location. 
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118, SUBSP (substring specif ication) 


a ee eT eee ye ee eae ee 
| SUBSP SPEC1, SPEC2,SPEC3,FAILURE,SUCCESS | 


SUBSP is used to specify an initial substring of a specified string. See 
figures 209 and 210. . 


If L3 2 L2 transfer is to SUCCESS. 
Otherwise transfer is to FAILURE and SPEC1 is not altered. 


SPEC 2 i | { i i 42 1 


SPEC 3 1 A3 1 ¥F3 1 v3 } o3 1 4L3 | 


SPEC 1 i AS t F3 ¢ vB ot O38 ¢ B2 1 


Figure 210. Data Altered by SUBSP if L3 2 L2 


fam 


wei! 


119. SUBTRT (subtract addresses) 


vd 


SUBTRT is used to subtract one address field from another. See figures 211 
and 212. A2 and A3 are considered as signed integers. 


If A2 - a3 is out of the range available for SRECTEREs transfer is to 


FAILURE. 


Otherwise transfer is to SUCCESS. 


DESCR2 | A2 { F2 | V2 | 
DESCR3 | A3 | { { 


Figure 211. Data Input to SUBTRT 


DESCR1 ! A2-A3 | F2 | V2 I 
: = == ~% 
. 


Figure 212. Data Altered by SUBTRT 
Programming Notes 
1. A2 and A3 may be relocatable addresses. 


2. The test for success and failure is used in only one‘call of this macro. 
Hence the code to make the check is- not needed in most cases. 


3. DESCR1 and DESCR2 are often the same. 


4. See also SUM. 


O 
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120. SUM | sum addresses) 
a) 


ee a Le Ee eT a a: | 
a SUM DESCR1, DESCR2, DESCR3, FAILURE, SUCCESS | | = 


SUM is used to add two address fields. See figures 213 and 214. A and I 
are considered as signed integers. o 


If A+tI is out of the range available for integers, transfer is to 
FAILURE. 


Otherwise transfer is to SUCCESS. 


DESCR2 1 aA | F | vf 
DESCR3 ! I i { [ 


Figure 213. Data Input to SUM 


DESCR1 1} Atl { F «Ff wv 
| eS SE SE | 


Figure 214. Data Altered by SUM o 
Programming Notes 


1. A may be a relocatable address. 


2. The test for success and failure is used in only one call of this macro. 
Hence the code to make the check is not: needed in most cases. 


3. DESCR1 and DESCR2 are often the same. 


4. See also SUBTRT. 
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Neti 


121. TESTE test fla 


a ee ee ee ee ee a ee ee 
t. - TESTF DESCR, FLAG, FAILURE,SUCCESS $§ 


ce re oven moet ce emu iat acai ean 


* 


TESTF is used to test a flag field for the presence of a flag. 
215. s 


If F contains FLAG, transfer is to SUCCESS. 


Otherwise transfer is to FAILURE. 


DESCR.- | { F { { 


Figure 215. Data Input to TESTF 


Programming Notes 
1. See also TESTFI. 


See figure 
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122. TESTFI. (test flag indirect) 


| TESTFI DESCR,FLAG, FAILURE,SUCCESS | jo] 


a en ee | 
TESTFI is used to test an indirectly specified flag field for the presence 
of a flag. See figure 216. 
If F contains FLAG, transfer is to SUCCESS. 


Otherwise transfer is to FAILURE. 


DESCR. | A I | | 


Figure 216. Data Input to TESIFI 
Programming Notes 


1. See also TESTF. 
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oO 


oO 


123, TITLE _ (title assembly listing) 


co OOOO 
l TITLE *C1.2-eCN! | 
| | 


TITLE is used at assembly time to title the assembly listing of the SNOROL4 
program. TITLE should cause a page eject and title subsequent pages with 


C1 ces Ne 


Programming Notes 


1. TITLE need not be implemented as such. It may simply perform no operation. 
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124. TOP (get to top of block) 


re en eg ee ne ee . 
t. TOP DESCR1, DESCR2, DESCR3. | o) 


fea a re a a rE Tee | 


TOP is. used to get to the top of a block of descriptors. See figures 217 
and 218. Descriptors at A, A - D,...,A - (N * D) are examined successively for 
the first descriptor whose flag field contains the flag TTL. Data is altered as 
indicated, where F3N is the first field to contain TTL. 


DESCR3 | A i F { Vv { 


A~ (N*D) | ! F3N { | 


Figure 217. Data Input to TOP ) 
Fe pe ew Wwe a tg ne ae A ee Pe eee 
DESCR1 { A-(N*D) | F | Vv { 


es ee a La 


‘-: ON ee ere 
DESCR2 i N*D | Cn 0 { 


Figure 218. Data Altered by TOP 
Programming Notes 
1. N may be 0. That is, F30 may contain TTL. 


| 


YM 


OD 


125. TRIMSP (trim blanks from specifier) 


TRIMSP SPEC1,SPEC2 | 


to a trailing string of blanks. See figures 219 and 220. 


SPEC2 


A+0 


SPEC1 


(© Fesaramming Notes 


} ci | cee { CJ |CcJ+i | eee {cL f 
er Ey 


Figure 219. Data Input to TRIMSP 


l A ( E l v 1 Q { J | 


Figure 220. Data Altered by TRIMSP 


1. I£ CL is not blank, J = L. 


TRIMSP is used to obtain a specifier to the part of a specified string up 
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126. _ UNLOAD (unload external function) | : 


ne re ae oe : om, 
i UNLOAD SPEC | | 
aan ee er aS ee RN CENT | : 


UNLOAD is used to unload an external function. See figure 221. c1...CL 
represents the name of the function that is to be unloaded. — 


SPEC i A i a i re) { L 1 


Se ee EEE 


| 
A+0 {ci | eee ) CLh.> J 
LOR ee ew (eeene name an [rarnetase 


Figure 221. Data Input to UNLOAD 
Programming Notes a 
1. UNZOAD is a system-dependent operation. 

2. UNLOAD need not be implemented as such. If it is not, it should perform no 
operation, since UNLOAD has a valid.use in undefining existing, but non- 
external, functions. ; 


3. UNLOAD should do nothing if the function C1...CL is not a LOADed function. 


ut. See also LOAD and LINK. : | | | Ne 
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127. VARID {compute variable identification numbers) 


ee 
i VARID DESCR,SPEC | 
ee | 


VARID is used to compute two variable identification numbers from a 
specified string. See figures 222 and 223. K and M are computed by 


K 


il 


F1(C1...CL) 

M = F2(C1...CL) 
where F1 and F2 are two (different) functions which -compute pseudo-random 
numbers from the characters C1...CL. The numbers computed should be in the 
ranges 


0 < K < (OBSIZ - 1) * D 


O <M s SIZLIM 


where OBSIZ is a global Symbol defining the number of chains in variable storage 


and SIZLIM is a global symbol defining the largest integer that can be stored in 
the value field of a descriptor. . 


SPEC | A I { | O I L I 
nS ee Se ST Hn 
he 
ee ee re | 


Figure 222. Data Input to VARID 


DESCR 1 K { 1 M { 


Figure 223. Data Altered by VARID 


Programming Notes 


1. K is used to selected one of a number of chains in variable storage. The K 
are address offsets which must fall on descriptor boundaries. 


2. M is used to order variables (string structures) within a chain. See 
ORDVST. 


3. The values of K and M should have as little correlation as possible with the 
characters C1...CL, since the "randomness" of the results determines the 
efficiency of variable access. 


4. One simple algorithm consists of multiplying the first part of C1...CL by 


the last part, and separating the central portion of the result into K and M. 
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5. L is always greater than zero. : | 


“soe 


© 


Sag es a ee re See eye Gee ek ea ee See ad 
1. VCMPIC DESCR1,N,DESCR2,GT,EQ,LT | 
| Cn nr Nee | 


VCMPIC is used to compare a value 
offset constant, with another value 
considered as unsigned integers. 

If v1 > V2 transfer is to GT. 
If v1 = v2 transfer is to EQ. 


If vi < v2 transfer is to LT. 


DESCR1 { Al | ! l 
DESCR2 | { | V2 | 


Al+N. | i i ovi1 { 


128. VCMPIC (value field compare indirect with offset constant) 


TD AED eA SIONS TS ENR E RTT ETE ATS TED ASA I TCTD, 


indirectly specified with an 
See figure 224. V1 and V2 are 


Figure 224. Data Input to VCMPIC 
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129. VEQL (value fields equal test) 


VEQL DESCR1, DESCR2,NE,EQ | 


VEQL is used to compare the value fields of two descriptors. 
225. V1 and V2 are considered as unsigned integers. 


DESCR1 


DESCR2 


If vi 


v2 transfer is to EQ. 


Tf Vi # V2 transfer is to NE. 


{ i | v2 ! 


| Ee Le ee ee | 


Figure 225. Data Input to VEQL 


Programming Notes 
1. See also AEQL and VEQLC. 
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e 


om 


See figure 


130, VEOLC (value field equal to constant test) 


Cn ee ee ee ee : 
1. VEQLC DESCR,N,NE,EO | 
| ee | 


VEQLC is used to compare the value field of a descriptor to a constant. 
See figure 226. V is considered as an unsigned integer. 
If v = N transfer is to EQ. 


If Vv # N-transfer is to NE. 


DESCR | | | me I 
ee nn So | 


Figure 226. Data Input to VEQLC 
Pryugramming liotes 
1. N is never negative. 


2.- See also AEQLC and VEQL. 
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3131, ZERBLK (zero block) 


i. ZERBLK DESCR1,DESCR2 | © 


ZERBLK is used to zero a block of I+1 descriptors. See figures 227 and 
228. 2 


DESCR1 | A { eo ei [ 


DESCR2 { D*T | 7 | I 


Io 


- A+(D*I) | Q | 7 a 
pe a 5 ake fo) 


Io 


Figure 228. Data Altered by ZERBLK 


Programming Notes 
1. 2 is always positive. 
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oo ppendix 1.-_ Implementation Notes 


A, Optional Macros 


There are several operations which are used in noncritical parts of the 


SNOBOL4Y language. 
functions. 


optional. 


tions 


Others are 


For these operations, 


Some operations are used only to implement certain primitive 
required only for minor executive 
following list includes operations for which implementation may be 


functions. The 
considered 


simple alternative implementations are sug- 
gested and the language features disabled are indicated. In 


selecting opera- 


for inclusion in this list, a judgement was made concerning what features 


could be disabled and still leave SNOBOL4 a useful language. 


- Qperation 


ADREAL# 


~BKSPCE 


CLERTB2 


DATE 
DVREAL! 
ENFILE 
EXPINT 
EXREAL! 
GETBAL 
INTRL! 


LEXCMF3 


LINK* 


LOAD* 


Alternative Implementation 


Branch to INTR10. 
Branch to UNDF. 


Branch to UNDF. 


Set length of SPEC to 0. 
Set address of DESCR2 ta 0. 
Branch to UNDF. 

Branch to UNDF. 

Branch to INTR10. 

Branch to UNDF. 

perform no operation. 


If GT # LT, branch to 
UNDF. 


Branch to INTR10. 


Branch to UNDF. 


Features Disabled 


Real arithmetic 
The function BACKSPACE 


The functions ANY, 
BREAK 


NOTANY, SPAN, and 


The function DATE 

Real arithmetic and post-run statistics 
The function ENDFILE 

Exponentiation oe integers 

Real arithmetic 

The primitive pattern BAL 

Real arithmetic 


The function LGT 


External functions 


External functions 


1All operations relating to real arithmetic should be implemented or not 
implemented as a group. 


-2CLERTB and PLUGTB should be implemented or not implemented as a pair. 
3LEXCMP must be properly implemented for LT = GT. 


SLINK, LOAD, and UNLOAD should be implemented or not implemented aS a group. 
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MNREAL} Branch to INTR10. Real arithmetic. ‘ 


MPREAL! — Branch to INTR10. Real arithmetic | | a an 

MSTIME Set address of DESCR to 0. The. function TIME, trace timing, 
' post-run statistics 

ORDVST Perform no operation. Alphabetization of post-run dump 

PLUGTB2 Branch to INTR10. . “athe functions ANY, NOTANY, - SPAN, 

= @ ’ and BREAK 

RCOMP! Branch to INTR10. 44 Real arithmetic 

REALST? = Branch to UNDF. | 7 Resi avitnmerie 

REWIND Branch to INTR10. #he- fonction REWIND 

RLINT! Branch to INTR10. Real arithmetic 

RPLACE = ‘-Branch to INTR10.. The function REPLACE 

SBREALt Branch to INTR10. ~ Real arithmetic | 

SPREALt Take the FAILURE exit. Real arithmetic | 

TRIMSP Branch to INTR10. | 7 The function TRIM 

UNLOAD* Perform no Speration: as External functions 


B. Machine Dependent Bata 


In addition to the data given in the Copy files (q.v.) there are several 
format strings that generally have to be changed to suit a particular machine. 
The strings defined by FORMAT (which occur at the end of the source file) are in 
this category. The two strings CRDFSP and OUTPSP defined by STRING are also 
machine dependent. 


Ce__ Error Exit for Debugging 


During the debugging phases, it is good programming practice to test for 
certain conditions that should not occur, but typically do if there is an error 
in the implementation. Stack underflow is’ typical. Transfer to the label 
INTR10 upon recognition of such an error causes the SNOBOL4 run to terminate 
with the message "ERROR IN SNOBOL4S SYSTEM". Following this message the 
statement number in which the error occurred is printed, as well as requested 
dumps ‘and termination statistics that may be helpful in debugging. : 
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Ne ge ORION 


LE PCY SPL SE AS MED UE ED. 


The choice between implementing macro operations by subroutine call or 
in-line code depends on a number of factors, including the machine and its 
environment. The size of the SNOBOL4 system usually encourages. subroutine | 
implementations of the more complicated operations. The following information 
may be helpful in making these decisions. Column 1 lists the macro operations 
in alphabetical order, including non-executable macros. Column 2 gives the 
number of times each each macro operation occurs in the SNOBOL4 program. Column 
3 gives the percentage of time spent in each (executable) macro during execution 
of a typical set of programs on the IBM 360 implementation. Time spent in I/0 
and system subroutines is not included. A * marks those macros implementated by 
subroutines in the IBM 360 implementation. (including macros that call I/O anda 
system subroutines). 


Macro Count Time 
-ACOMP 65 2.952. 
ACOMPC 57 1.450 
ADDLG 7 * 0.000 
ADDSIB - 6 0.000 
ADDSON 12 0.017 
ADJUST 2 0.000 
ADREAL 1 0.000 
AEQL 47 0.397 
AEQLC 173 3.574 
AEQLIC 9 0.086 
APDSP* - 93 . 0.897 
ARRAY 5 atatateatens 
BKSIZE 5 1.329 
BKSPCE* 1 0.000 
BRANCH 348 0.638 
BRANIC 5 2.054 
BUFFER 5 eee 
CHKVAL 3 0.604 
CLERTB 4 0.000 
COPY SB =a me a 
CPYPAT* 14 3.021 
DATE* 1 0.000 
DECRA 60 1.588 
DEQL 73 1.3486 
DESCR 921 w---<=- 
DIVIDE 4 0.000 
DVREAL 2 0.000 
END Po ee ee 
ENDEX* 1 0.000 
ENFILE* 1 0.000 
EQU 69 — aHw== 
EXPINT 1 0.000 
EXREAL* 1 0.000 
FORMAT 250 8 =e me 
FSHRTN 12 0.000 
GETAC 10 0.638 
GETBAL* 1 0.172 
GETD G7 7.408 
GETDC 118 5-025 
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GETLTH 
GETS1IZ 
GETSPC 
INCRA 
INCRV 
INIT* 
INSERT 
INTRL 
INTSPC* 
ISTACK 
ICOMP 
LEQLC 


LEXCMP* © 


LHERE 
LINK* 
LINKOR 
LOAD* 
LOCAPT 
LOCAPV 
LOCSP 
LVALUE* 
MAKNOD 
MNREAL 
MNSINT 
MOVA 
MOVBLK* 
MOVD 
MOVDIC 
MOVV 


- MPREAL 


MST IME* 
MULT 
MULTC 
ORDVST* 
OUTPUT* 
PLUGTB 
POP 
PROC 
PSTACK 
PUSH 
PUTAC 
PUTD 
PUTDC 
PUTLG 
PUTSPC 
PUTVC 
RCALL 
RCOMP . 
REALST* 
REMSP 
RESETF 
REWIND* 
RLINT 
RPLACE* 
RRTURN 
RSETFI 
SBREAL 
SELBRA 
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=~ 
(=) 


aw wt WA) = RD at LW ) 
ad 


0.172 


0.397 
0.017 
52577 


0.000 


0.138 
0.000 
0.000 
0.552 
0.000 
0.000 
0.103 


122624 


0.000 
0.000 
0.000 
1.467 


5.1970 


1.605 
0.207 
0.172 


0.000. 


0.034 
0.397 
0.103 
1.985 
0.017 
0.811 
0.000 
0.000 
0.120 
0.207 


0.000. 


0. 034 
0.000 
4.282 
2.365 
0.034 
3.091 
0.448 
0.069 
3.056 
0.189 
0.138 
0.034 
8.927 
0.000 
0.000 
0.448 
0.000 
0.000 
0.000 
0.000 
6.182 
0.000 
0.000 
0.017 


O . 
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le) 


In the following sections, the macro PEeneeron are classified according to 
the way they are used. 


Assembly Control Macros. 


COPY END EQU LHERE TITLE 


Macros which Assemble Data. 


ARRAY BUFFER DESCR ' FORMAT SPEC 
STRING 3 


- Branch Macros. 


BRANCH BRANIC SELBRA 


Comparison Macros, 


ACOMP ACOMPC AEQOL AEQIC AEQLIC 
CHKVAL DEQL LCOMP LEQLC LEXCMP 
RCOMP TESTF TESTFI VCMPIC VEQL 
VEQLC 


170 


Macros which Relate to Recursive Procedures and Stack Management. 


DDD ARREARS SEEDS SET SPR PEE OEE AT AE TL REELED RUE RIE OED in. 


ISTACK POP PROC PSTACK PUSH 
RCALL RRTURN SPOP SPUSH 

Macros which Move and Set Descriptors. 

GETD GETDC MOVBLK .- MOVD MOVDIC 


POP PUSH PUTD PUTDC | ZERBLK 


Macros which Modify Address Fields of Descriptors. 


ADJUST BKSIZE GETAC GETLG GETLTH 
GETSIZ MOVA PUTAC SETAC. SETAV 


~ 


- 


Macros which Modify Value Fields of Descriptors. 


INCRV MOVV PUTVC SETSIZ SETVA 
SETVC 


Macros which Modify Flag Fields of Descriptors. 


Cc RESETF RSETFI SETF SETFI 
XN 
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Macros which Perform Integer Arithmetic on Address Fields. 


DECRA DIVIDE EXPINT INCRA $$ MNSINT 
MULT MULTC SUBTRT SUM 


Macros which Deal _with Real Numbers. 


‘ADREAL DVREAL EXREAL © INTRL .. MNRZAL 
MPREAL RCOMP REALST RLINT. . SBREAL ..- 
SPREAL —_ 


Macros which Move Specifiers. — 


GETSPC PUTSPC SETSP SPOP SPUSH 


Macros which Operate on Specifierss —- 


ADDLG APDSP FSHRIN GETBAL INTSPC 


LOCSP PUTLG REMSP SETLC- SHORTN 
STREAM SUBSP TRIMSP 7 


Macros which Operate on Syntax Tables. 


CLERTB PLUGTB 
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; sities, 


Macros_which Construct Pattern Nodes. 


CPYPAT MAKNOD 


Macros which Operate on Tree Nodes. 


ADDSIB ADDSON iNSERT 


Input _ and Output Macros, 


BKSPCE ENFILE | FORMAT OUTPUT REWIND 
STPRNT STREAD 


Macros wjich Depend on Operating System Facilities. 


-_ 


DATE ENDEX INIT LINK LOAD 
MSTIME UNLOAD 


Misceilaneous Macros. 


LINKOR LOCAPT LOCAPV LVALUE ORDVST 
RPLACE SPCINT TOP VARID 


173 


etal 


Appendix 3 - Format of the SNOBOL4 Source File . | , 


5 


One problem in implementing SNOBOL4S for a particular machine involves 
putting the macro-language program into a form suitable for the assembler for 
that machine. This typically involves making a number of format changes and 
correcting a few special cases by hand. It is desireable to perform as many > 
changes as possible by some systematic, mechanical means’ (preferrably with a 
program) so that new versions of the macro-language program can be converted 
into the required form easily, thus facilitating the incorporation of updates in 
the SNOBOL4 language. A systematic, mechanical technique also minimizes random 
errors inevitably introduced by human interference. Such random errors are 
particularly dangerous in such an implementation. since most of the logic of the 
system is at a level divorced from the implementation of the macro language. 
This section describes the format of the macro-language program in order to make 
the necessary format changes easier to determine. . 


The SNOBOL4Y assembly source file consists of about 6500 80-character card 
images. All cards are blank in column 72 and contain sequence numbering in 
columns 73. through 80. There are two kinds of cards: program cards and comment 
cards. Comment cards have an asterisk (*) ir. column 7 and descriptive text of 
various types in columns 2 through 71. All other cards (about 4800 out of the 
total of 6500) are program cards. Program cards have a field format as follows: 


1. Columns 1 through 6: label field. A program label, if present, 
begins in column 1, All labels begin with a letter, followed by letters 
or digits. Labels are from two through six characters in length. If a 
program card has no label, the label field is blank. | o) 


2. Column 7: _ blank. 


3. Columns 8 through 13: operation field. All program cards have 
operations which begin in column 8. Operations consist of from three to 
six letters. ; 


4. Columns 14 and 15: blank. _ 


5. Columns 16 through 71: variable field. A list of Operands appears 
in the variable field starting in column 16. The list consists of items 
separated by commas. The last item in the list is followed by a blank. 
If there are no operands, there is a comma in column 16 and a blank in 
column 17. Items in the operand list may take several forms: 


a. Identifiers, which satisfy the requirements of program labels. 


b. Integer constants. 


c. Arithmetic expressions containing identifiers anda constants. 


d. Lists of items enclosed in parentheses. List are not nested, 
i.e. lists do not occur as items within lists. : 
e. Character literals, consisting of characters enclosed in Single 
quotation marks. Quotation marks do not occur within literals, but 
commas, parentheses, and blanks may. This fact must be taken into® 
account in analyzing the variable field. 
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f. Nulls, or items of zero Length. Nulls 


omitted arguments to macro operations. 


represent. 


explicitly 


Comments may occur following the blank which terminates the variable field. 


Such comments begin in column 36. 


The following portion of program is typical. 


ye 

# BLOCK MARKING 

* ; 

GCM PROC P PROCEDURE TO MARK BLOCKS 
POP BK1CL RESTORE BLOCK TO MARK FROM - 
PUSH ZEROCL SAVE END MARKER 

‘GCMA1 GETSIZ BKDX,PKICL © GET SIZE OF BLOCK 

GCMA2 GETD DESCL, BK1CL, BKDX GET DESCRIPTOR 
TESTF  DESCL,PTR,GCMA3 IS IT A POINTER? 
AEQLC DESCL,0,,GCMA3 IS ADDRESS ZERO? 
TOP TOPCL,OFSET,DESCL GET TO TITLE OF BLOCK POINTED TO 
TESTFI TOPCL,MARK,GCMA4 IS BLOCK MARKED? 

GCMA3 DECRA  BKDX,DESCR | _ - DECREMENT OFFSET 

AEQLC BKDX,0,GCMA2 CHECK FOR END OF BLOCK 

POP BK1CL RESTORE BLOCK PUSHED 
AFQLC BKICL,0,,RTN1 CHECK FOR END 
SETAV  BKDX, BK1CL GET SIZE REMAINING 
BRANCH GCMA2 CONTINUE PROCESSING 

* 

GCMA4 DECRA  BKDX,DESCR DECREMENT OFFSET 
AEQLC  BKDX,0,,GCMA9 CHECK FOR END 
SETVA BK1CL,BKDX INSERT OFFSET 
PUSH BK 1CL SAVE. CURRENT BLOCK 

GCMA9 MOVD BK1CL, TOPCL SET POINER TO NEW BLOCK 
SETFI BKICL,MARK -  .. MARK BLOCK 
TESTFI BKICL,STTL,GCMA1 IS IT A STRING? 
MOVD BKDX, TWOCL. SET SIZE OF STRING TO 2 
BRANCH GCMA2 JOIN PROCESSING | 


00000809 
000008 10 
00000811 
00000812 
000008173 
00000814 
00000815 
000008 16 
00060817 
00000818 
00000819 
00000820 
00000821 
00000822 
00000823 
00000824 
00000825 
00000826 
00000827 
00000828 
00000829 
00000830 
00000831 
00000832 
00000833 
00000834 
00000835 
00000836 
00000837 
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Avpendix 4 - Differences between Version 2 and Version 3 


a 


There are three new macro operations included in Version 3 that were not 
used in Version 2. One macro has been deleted. A number of Version 2 macros 
have been changed slightly. Corrections and improved descriptions have been 
supplied for a number a macros. The character classes used to define syntax 
tables have been extended and revised. The following lists are provided to 
assist in converting Version 2 implementations to Version 3. 

1. Macro Operations New to Version 3 
EXREAL, RCOMP, RLINT 
2. Changed Macro Operations 
COPY, CPYPAT, ENDEX, INIT, LOAD, LOCAPT, LOCAPV, MNSINT, STREAM | 
3. Changed Macro Formats 7 
AEQLIC, VCMPIC | a ieee, he | : 


4& Deleted Macro 


DUMP 

5. Corrected or Improved Macro Descriptions 
ACOMPC, AEQLC, BKSIZE, CLERTB, DECRA, DIVIDE, EXPINT, GETBAL, 
GETLTH, INCRA, INCRV, INSERT, INTRL, LINK, LVALUE, MULTC, ORDVST, 


PLUGTB, POP, RCALL, RPLACE, SELBRA, SETAC, SPCINT, SPOP, SPREAL, 
STREAM, SUBTRT, SUM, VARID 7 | | 
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